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DECLARATIONS 
GINHERE - galled y DCL via DBGBOOT 
BUG gate and exit routines = save/restore state of user 
BUG nation and last-chance handlers 
DBGSPSEUDO PROG = Structure to implement CALL 


Entry to DEBUG for threaded BPT's 
Call frame exception handler 

Call frame exception handler 

Write SYSSPUTMSG output to DBGSOUTPUT 
Makes page writable 

Sets page to read only 
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SHOUL 
CORPORATION. 


: FACILITY: DEBUG 
ABSTRACT: 


ENVIRONMENT: 
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VERSION: 4.00 
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TITLE DBGSTART 
SIDENT *V04=000" 


= 


THIS SOFTWARE IS Lal ite oer eR ‘a am AND MAY BE USED AND og a 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR 


COPIES THEREOF = NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
O TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


poe | yh or pie IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND D NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONS 
SOFTWARE ON EQUIPMENT WHIC 
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VAX/VMS User mode : 
pied on DEBUG runs as a (very complex) exception handler. 
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Start-up module for DEBUG facility. 


Mapped and entered initially from the CLI. From 


1 
(1) 


DBGSTART : 15-SEP-1984 23: 
v04=000 4 Het? $3 


wae 


5:33 AX/VMS Macro Vv04-00 Page § 
9:28 ([DEBUG.SRCJDBGSTART.MAR; 1 (2) 


$ 4} ; REVISION HISTORY: 
i 3 

0 44 ; MODIFIED BY: 

45 ; gone Bis jp 30, N = 1981 
8 rf} 3 y Holt 
47 ; . Sager, oct. I 

$ 8 : 5 Sager, Aug. 138 

00 0; 1.01 Fas a DAR Fixed bug in the way WINDOW_2 returns to VMS. 

00 1; 1.02 20-0CT-78 MCC Changed size of wr ttable storage to be 
$388 § 3 calculaced at Link time 

3 1.03 24-0CT-78 DAR PROBE s. 4c°0e . ocerees “before initializing 
0000 4; the PSL's DV bit 
0000 5 ; 1.04 10-NOV-78 DAR Added be ie OOOGS THREAD. BPT for threaded BPT's. 
BO08 § : 1.05 07-DEC-78 DAR Fixed exit handler to exit if SS$_CLIFRCEXT. 

000 : 1.06 18-DEC-78 DAR Added global label to threaded breakpoint routine 
0000 58 ; to enable ‘GO Zline x'’ to work in threaded code. 
44 2B 3 1.07 23-MAR-79 MCC peg ALE Ms oy re message to write error messages 

3 ° 
0000 61 ; 1.08 6-AUG-79 MCC Modified dbg$final_handl to check for error msgs 
4 6¢ 3 from shared msg file, before signaling ‘internal 

000 65 ; DEBUG coging error’ 

0000 64 ; 1.09 5-SEP-79 MCC Made a fix to toggle system service failure 
4 HH 3 meee — ayer program has set it and DEBUG 

: et 
0000 67 ; 1.10 7=-APR-81 JF 8fon Janel “DeGS. SUPERDEBUG if testable debugger 
0000 68 ; and any unexpected errors are encountere 
0000 69 ; 3.00 30-NOV-81 JF "igy ue entry and exit sequences to fix dugs 
0000 70 ; T's and user termination handlers. 
0000 71°; 3.10 22-Jun-82 VJH Removed all references to DBGSFAO_PUT and 
0000 Le g bBGSO UT_PUT, as these routines are now obsolete. 
0000 73; Replaced them with calls to DBGSPRINT and 
0000 74; DBGSNEWLINE, respective LY: 
0000 75 ; 3.80 12-Oct-82 PS Added sone | Sege to DBGSP EUDO_HANDLER to 
0000 76 ; release all the memory blocks for CALL command 
44 77; 3.81 18-Jan-83 JF Added Secsev. CONTROL State vector and modified 

000 28 : handling of *SS$_DEBUG' Tee" foop 
0000 79; 4.0 31-Aug-83 PS Pisa a reed ecrer portes te oop "Fesorted by 
0000 80 ; user throu serous". ee unt in 
493 81; DBGSC “poe (wacexe 14° we get bad 

000 8¢ ; status got $GET Key Pad input, after 20 

000 3 tries, we'll force the DEBUG to take EXIT. 

4 : 3 (See code siden im DBGSFINAL_HANDL, Label 

000 6; 4.0 O1-Feb-84 PS Added SSI for watch pointing 
0000 7 3-- 
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s weeess 


I 
; $SI_LUSS is a privileged shareable image to ony up yh service 
: nate, ed in dg we et 


: 1 to indicate to 
; Link with SSI ¥Ss. set to 0 to indicate to Link without SSI_USS. va 
; v3 system. DBGSGL_3B_SYSTEM must be set to there is no S$S1I_USS active. 
; use a DEBUG will work both ways on vm v4 and VMS V5. Declare 

o be 


; Link time. 
' WEAK SSI_USSK 
eWEAK SS 
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DBGSGL 
.EXTRN DBG$GB~CALL_NORMAL_RET 
-EXTRN DBGSEND_OF CINE ,DBGSEXC 
i 5BGSINIT-DEBUG, DBGSOUT_NUM. VAL , DBGSNEWL INE 
x D SG, DBG$INS_OPCODES L16$S1GNAL SYSSDCLEXH, SYSSEXIT 
XTRN SYSSGETMSG, SYSSPUT SYSSSETAST, SYSSSETPRT,SYSS 
x 


$ UNWIND 
TRN DBGS$GL_LOGRAB, DBGSGB_DEF _OUT ,OBGS$FLUSHBUF ,DBG$GB_UNHANDLED_EXC 
TRN EVENTSPAGE_QUEUE 


SOOSCOCSOSOSOSOSOSOSOOSOOOSOOOOOOCOoOO 


SOoOSCOSSOSOSSOSSOSSOSOSOSSOOSOOOSOOOOOOOOS 


CGOOOOSOSOSSSSSSSSSOoooooooooooOoooOoOOOOOOOOOSOO 


invoke data definitions 
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SCHF DEF 3: Condition handler mnemonics 
0 SCLIDEF ; CLI status bit definitions 

000 SOBGDEF 3; Debug definitions 

000 SIFODEF ; Image file definitions 

000 SPSLDEF ; Processor Status Longword bits 

000 SRABDEF ; RAB definitions 

000 SSF DEF ; Stack Frame offset definitions 

000 SSHRDEF ; Shared error messages 

000 SSSDEF 3; System error codes 

4 SSTSDEF ; Status code fields 

B08 ; Equated symbols 
00000100 000 buf_siz — = 256 ; length of getmsg. FAO, and $PUT buffers 
00000002 000 dbg_facility = 2 ; DEBUG facility code. 
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DECLARATIONS 


00000000 
00000001 
00000001 
00000002 
00000002 
00000004 
00000003 
00000008 


00000000 
00000001 


00000001 
00000002 


00000002 
00000004 


00000003 
00000008 


00000004 
00000010 


00000005 
00000020 


00000006 
00000040 


00000007 
00000080 


80000100 
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COOoooooooo 


OOCOOOOCOOOoOoOOoOoOOoOoSooS 
SOOCOoOoOoOoOOSOOoOSoOOSOoOSSoSoOo 
SOCOCCOOOCOOOOOOOoooOo 
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eeeeeSs] 
SSI_USS can be called by the user, or by the DBG (TDBG), or by the SDBG. 
Each level (user, DBG/TDBG, SDBG) delcares a interception routine which 
runs at a priority (user = priority 1 BG/TDBG = priority 3, SDBG - 
priority 4). This vector is used to indicate which priority is active 
at the moment. 
Definitions of bits in DBGSGV_SSI_CONTROL running state vector 
dbg$v_ssi_routine_1 = 0 :; Set if user declared prio. 1 routine 
; is running 
dbg$m_ssi_routine_1 = ladbg$v_ssi_routine_1 
dbg$v_ssi_routine_2 = 1 3; Set if user declared prio. 2 routine 
; is running 
dbg$m_ssi_routine_2 = ladbg$v_ssi_routine_2 
dbg$v_ssi_routine_3 = 2 ; Set if user declared prio. 3 routine 
; is running 
dbg$m_ssi_routine_3 = ladbg$v_ssi_routine_3 
dbg$v_ssi_routine_4 = 3 ; Set if user declared prio. 4 routine 
; is running 
dbg$m_ssi_routine_4 = ladbg$v_ssi_routine_4 


Definitions of bits in DBG$GV 
eeee THESE MUST MATCH DEFIN 


dbg$v_control_tdbg 
dbg$m_control_tdbg 


dbg$v_control_sdbg 
dbg$m_control_sdbg 


dbg$v_control_kdbg 
dbg$m_control_kdbg 


dbg$v_control_urun 
dbg$m_control_urun 


CONTROL state vector 

ITIONS IN DBGLIB *ee* 

0 ; Set if this is a testable DEBUG 
ladbg$v_control_tdbg 


1 ; Set if this is SUPERDEBUG 
ladbg$v_control_sdbg 


2 3 
ladbg$v_control_kdbg 


3 ; Set if user program has been run 
ladbg$v_control_urun 


4 ; Set if DEBUG is about to EXIT 
ladbg$v_control_exit 


dbg$v_control_exit 
dbg$m_control_exit 


dbg$v_control_fail 
dbg$m_control_fail 


5 ; Set by DEBUG internal errors 
ladbg$v_control_fail 


dbg$v_control_done = 


Set if user program completed 
dbg$m_control_done = 


6 : 
ladbg$v_control_done 
dbg$v_control_allocate = 7 ; Set if OK to allocate more memory 
: (e.g... SET MODULE/ALLOCATE) 
dbg$m_control_allocate = ladbg$v_control_allocate 


dbg$v_control_user = 8 ; Set if user program is running 
dbg$m_control_user = ladbg$v_control_user 
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DECLARATIONS 


90000200 
000400 


00000800 


0000000¢ 
00001000 
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raat et 33:35:33 toeeuG sre DBGSTART.MAR; 1 ~ (4) 
dbg$v_control_stop = 9 ; Set by “Y,DEBUG sequence 
dbg$m_control_stop = ladbg$v_control_stop 
dbg$v_control_tbit = 10 ; Set during un-interruptable TBITs 
dbg$m_control_tbit = ladbg$v_control_tbit 
dbg$v_control_screen = 11 ; Set if screen displays must be updated 

3 because user program has run 

dbg$m_control_screen = ladbg$v_control_screen 


; Set if VMS 38 or 4.0 is running 


dbg$v_control_version_4 = 12 
= ladbg$v_control_version_ 


dbg$m_control_version_4 


ess 


DECLARATIONS 


0000 : 


ee: 
$0000 
00000002" 08 


Oo 


00 
00000004 0000 
004 

00000000 

0000 

0000 


5 
a 
5 
1) 
15 
13 
19 w 
; 
i, 


«LONG 
- LONG 


dD 13 


15-SEP=1 
4-SEP-19 


3; writable storage area. The t 
; address of DEBUG that is in this module. 


os DBGSABS_ZERO LONG, PIC, SHR, 
virtual _zero 


Page 


9b 33:35 
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8 ([DEBUG.SRCJOBGSTART.MAR; 1 


Special vector that contains the beginning and end addresses of DEBUG's 


hird address in the vector is the transfer 


NOWRT, EXE 


; ADDRESS writable_stor ; lowest writable location 


«ADDRESS end_writé_stor; 
<beginhere+2> - virtual_zerd 


highest writable location 
; start address of mapped DEBUG 


-PSECT DBGSGLOBAL LONG, PIC, NOSHR, NOEXE 


ritable_stor: 
bg$gl_runframe:: 


~BLKL 


1 


; Define lowest writable address 


»PSECT 222$222222 LONG, PIC, NOSHR, NOEXE 


end_write_stor: 


: Define highest writable address 
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aa 
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— 
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00000200 


00000000 


00000004 


00000008 


0000000C 


0000 


00000000 
00000000 


00000000 
00000000 
00000000 

00 


00 
00 


DECLARATIONS 
0000: 
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1G 
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are DEBUG variables, pass 
from SSI_USS. 
write 


variables. 

VARIABLES. 
S1_VAR_BEG: : 
ATR: -BLKB 512 
SSI_VAR_END:: 


DBG_ROUTINE_1D==SS1_VAR_BEG 


DU ee Ge Se Oe Oe Oe Se Oe Se Ge 


SDBG_ROUTINE_ID==SS1_VAR_BEG+4 
SAVE_STATE==SS1_VAR_BEG+8 
DUMMY=SSI_VAR_BEG+12 


: OWN STORAGE 


SOON NNMNNNNMNNNININIVNVVOOOOOCOCOOOOOCSoSoo 


SOSOSOSOSSOSCSCSOSCSCOSOSOOSOOCSOOSOOSOOoOOSoSooOO 
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DBGSGV_SS1_ CONTROL: : 
2 SAVE_SSI_STATE:: 
v7 “BYTE 0 


oo 
oo 
oo 
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6BG_SSI_CNT 
0000 -LONG 0 
004 DBG_ONCE_ONLY_CNT:: 
004 »LONG 0 
0008 
0008 65 DBG_SETUP:: 
Bebe r$] -LON 0 
O0C 267 SDBG_SETUP:: 
000C 68 ~ LON 0 
$318 4 PAGE _ENTRY: : 

1 0 .LON 0 
014 271 DBGSGB_SET SSI_CNT:: 
014 i BYTE ~ 0 
bie 7 
01 74 

15 75 

19 

13 
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ooo 
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-PSECT OBGSSSI PIC, NOSHR, NOEXE, PAGE 
ALIGN PAGE 


Allocate one page of storage for the following variables. 
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These variables 


n SSI_USS as parameters, values are returned 
. we set the watch point on these variables (page is 
rotected) will cause SSI_USS to fail (k 
Any DEBUG variables is on the same page will be affected. 
these variables on a page all b 
Restriction has to 


ernal mode accvio, PROBEW). 
So, we put 


y. theasets. avey from the other 


DEBUG 
set: NO WATCH POINT CAN BE SET ON THESE 


An ID returned from SSI_USS to 
indicate TDBG/DBG has declared its 
interception routine 

An 1D returned from SSI_USS to 
indicate SDBG has declared its 
interception routine 

An important communication state 
variable to keep the interception 
flow going between all the levels 

Dummy arg. 


-PSECT DBGSOWN LONG, PIC, NOSHR, NOEXE 


; Variables are used in DEBUG to make SSI work. 


A count to keep track how many SSV are seen 
4 DBG/TDBG, or SDBG 

Debug is highly re-entriant, is also hard 
to identify re-entriant point. So we use 
this count to keep track of the entcy point 

An important state flag to control SSI's 
activities for DBG/TDBG 

An important state flag to control SSI's 
activities for S$ 

Pointer to watch variable'’s page list 


A fla 
DEBU 
te ioged 

A state vector to control which interception 
routine is active at the moment 

A state vector is used in netotng to set the 
above state vector. It serves the 
communication gap between TDBG and SDBG 


to indicate watch pointing is active 
only intecepts if watch pointing is 


DEBUG. SRC JDBGSTART.MAR; 1 (6) 


=a 


cc 
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v04-000 DECLARATIONS raat oat 33:35 39: 3 toe BUG. SRC DBGSTART.MAR; 1 3) 
17 0; 
Vf 1 ; OWN STORAGE 
17 5 term_reason: 
00000000 : «LONG 0 ; Location for termination reason 
18 § term_block_one: 
00000 09 18 - LONG : Forward Link 
000002F7* OO1F 8 fix_1: .ADDRESS term_handler ; Address of termination handler 
00000001 ; 9 ol ; Argument count 
00000017° : Y fix.2: ADDRESS term_reason ; Address of termination reason 
6 8 35 term_block yee 
00000000 0026 9 Forward Link 
00000281" O02F 94 fix_3: “ADDRESS restore _context: Address of termination handler 
00000001 00 ; 95 ; Argument count 
00000017" 00 96 fix_4: “ADDRESS term_reason ; Address of termination reason 


—-—------ — —_ os 


DBGSTART 
voe=000 DECLARATIONS 


00000155 
00000255 
00000355 
000006C" 


00000001 
00000361 


00000365 
00000369 
0000036D 
00000001 


| 
00000100 
00000000 
0000 
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f teeterereererere saved_AP and 
{ eeeeerererrerere saved_RO and 


: 


buf _siz 
0 


0 

buf_siz 
buf_siz 
buf_siz 


Cea ost CO 


s::.LONG 1 
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saved_FP must be contiguous *eerrreeeeceeere 
saved_R1 must be contiguous *eeeeerereeerers 


Original AP 
Original FP 


RO and R1 are saved eg ney so that 
they can be preserved across SEXIT_S 


; length of FAO buffer 
; address of FAO buffer 


; holds temporary buffer Lengths 
; buffer for FAO messages 

; buffer for LOG file 

; buffer for EXIT reason messages 


; Parameter count 
; Actual parameter value 


; Saved PC for fake LIBSSIGNAL entry 

; Saved FP for fake LIBSSIGNAL entry 

; Address of user handler (or zero) | 
; Status to be returned to DCL on exit 
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000 8 .PSECT DBGSPLIT BYTE, PIC, SHR, NOWRT, EXE 
9 routine_value: 


-ASCIC \walue returned is \ 
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00 

00 

00 

00 

00 

00 

00 : 
00 

00 : 
00 69 

00 70 : 
00 71 

00 7 

00 ? 

00 74 


BEGINHERE = called by DCL via DBGBOOT 


3 ~SBTTL BEGINHERE - called b 
«PSECT DBGSCODE BYTE, PIC, SHR, NOWRT, EXE 


. 
FUNCTIONAL DESCRIPTION: 


Routine ‘‘beginhere’’ is where DEBUG is given control from the CLI, 
either at the start of program execution or in response to the DCL 
‘DEBUG gennene (in the case of RUN/NODEBUG). 

ne first resolves the two separate ways that DEBUG can be 
entered from the CLI 
performs once-only nya: 


! (Exception args if RUN/NODEBUG) 


ES ee 


1775601386 93:42:33 paves Macro v04-00 Page 


DEBUG. SRC JDBGSTART MAR; 1 
DCL via DBGBOOT 


and coerces them to a common format. It then 
UG initialization, and finally it enters the 
exception handler that initiates command processing. 


The transfer vector has three or less transfer addresses in it. 
They are ordered as in the picture below: 


If the DEBUG or OTS transfer addresses are absent, the subsequent 
addresses are moved upward in the List. 


11 
(10) 
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yO. 000 BEGINHERE = called by DCL via DBGBOOT raat 33:60:38 DEBUG. SRC JDBGSTART.MAR; 1 . (11) 
8 6 3 teeeeSs! 
77 ; Since DEBUG is highly re-entriant, (ie, signet back to DEBUG via SS$_NORMAL, 
: ue ; Error message, build call frame stack on the fly, or via Branch, JMP etc.) 
79 ; to be safe, at i Label in this module (potential entry point) we DISABLE 
0; - $O we won't intercept DEBUG'S own syexen Service calls. D8G/TDBG 
1 3; watches user program's system service, SDBG watches TDBG and user program's 
0 ¢ 3 system service calls. But at each level DBG, TDBG or SDBG, one never 
; intercepts its own system service calls. 
? i it t i Ll 
0000 000 ‘3 -ENTRY BEGINHERE , “M<> ; Null entry mask 
QOOOOBOE’EF 00 FB 000 : A #0,DISABLE_SSI 
QO0000000"EF 10 00 B1SB8 #dbg$m_confrol_exit,dbg$gv_control; Exit on startup errors 
0986 O19 8 BSBW fix_up_addressés ; [TEMP] until VMS bug is fixed 
QOO0OO0OSB'EF 5C¢ D 001 89 MOVa AP,saved_AP 3; Save peigter to CLI parameters 
2F 18 AC 8 36©10~—=Cs#€E:* Bate + BBC #cli$v_dBgexcp,24(AP) , 38; Branch if normal entry to DEBUG 
OO1F 8 3; DEBUG has been entered after user program has been started. Find the 
OO1F 93 ; call frame on the stack which will resturn control to SYSSIMGSTA and 
OO1F 94 ; change the return address to point to dbg$user_exit so that DEBUG is 
pelt 32 : given control if the user program exits via a RETURN. 
5C 4 AC DO OOIF 39 , MOVL 4(AP) ,AP ; Get pointer to exception parameters 
50 O08 AC 00 bags 98 MOVL chf$l_mcharglst(AP),RO ; Get address of MECHANISM arguments 
50 04 A0 00 0027 99 MOVL chf$l_mch_frame(RO),RO ; Get FP of establisher (SYSSIMGSTA) 
OOOOOOSF*EF 50 00 +t %4 400 MOVL RO,saved_ ; Save for last-chance handler 
51. 5d 00 00 ¢ 401 MOVL FP,R1 ; Get current frame pointer 
51 OC Al 00 003 402 1$: MOVL sf$l_save fp(R1),R1 : Step back to previous frame 
61 14 00 of 0039 40 PROBER #0,#20, (RT) ; Can this stack frame be read ? 
OC 13 003D 404 BEQL 2 3 No = stack is corrupted ? 
50 OC Ai D1 OO3F 405 CMPL sf$l_save_fp(R1),RO ; Do we point back to SYSSIMGSTA ? 
FO 12 0043 406 BNEQ 1$ 3; No = go look at earlier frames 
10 Al O1BA'CF 9E 0045 407 MOVAB W*“dbg$user_exit,sf$l_save_pc(R1); Yes - change return PC 
O0A1 31 Baee 188 2$: BRW setup : Go perform common initialization 
004E 410 ; DEBUG has been given control directly at start of program execution. 
004E 411 ; We need to build a fake call-frame on the stack, so that it appears 
004E a6 3; to the user as though DEBUG had been given control after the CALL of 
Once 3 ; his program but before execution of any user instructions. 
04 00000000'EF 01 £0 O04E 415 38: BBS edogty control_sdbg,dbg$gv_control,4$;Use this vector if SDBG 
04 AC 04 CO 0056 216 ADDL2 #4,4(AB) 3; Otherwise step to OTS or USER entry 
50 01 10 78 OOSA 417 4$: ASHL #16,#1,R0 ; Get all-zero default entry mask 
51 04 8C 00 005 4g MOVL a4 (AP).~R1 : Get address of user transter vector 
61 02 g o¢ 06 41 PROBER #0,#2,(R1) : Can transfer address be read ? 
1 6 420 BEQL $ 3; If not, don't try to read it ! 
50 61 3C 006 421 MOVZWL (R1),RO 3; Get user entry mask bits in RO 
00000043'EF 50 00 554 4 § 5$: MOVL RO,saved_RO ; Save entry-mask and flag bit 
00000047" EF 1 - «6 4 ADDLS #2,R1,saved_R1 3; Save transfer address as well 
7s Tm 0 EF QO7A 424 EXTZ #0,42,SP,R1 3; Get low two bits of stack pointer 
03 CA OO7F 425 BICL P : Force stack to longword alignment 
50 F000 ef AA ; $ 4 § BICW #*XF000,R0 ; Mask to just bits 0-11 (registers) 
0 4 4 PUSHR RO ; Save registers given in entry mask 
18A°CF F 0089 4 3 PUSHAB W*dbgSuser_exit 3; Set up fake return eddress 
000 8F ge 08D 4 PUSHR #*M<FP,AP> ; Save current context registers 
7E 51 FE 8F C 0091 430 OTL #-2,R1,°(SP : Set stack alignment bits 
02 aE 50 «AB 0096) «= 431 BISW2 RO, 2(SP) i Include register save mask 
—E D4 9A 432 CLRL -(§P) : Initialize stack exception handler 


BEGINHERE = called by DCL via DBGBOOT "22 p-19b4 33:45:38 DEBUG SRCIDRGSTART MAR; 1 —_ ( 


6D BITAF 9 9 433 MOVAB B*one_shot_handler,(FP) ; Establish handler in outer frame 
3p ZF D A 434 MOVL SP,FP 3 Frame established - set pointer 
43 opene 001 BF OD A 435 MOVL sabgs normal ,-(SP) 3 Stack special exception code 
00000000'GF 01 FB A ; $ CALLS #1,G*CIBSSIGNAL ; SIGNAL into exception handler 
it 438 : Never returns here = PC changed within handler ! 
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OFFC + rk One St ORD RcR2 R3,R4,R5,R6,R7,RB,R9,R1I0,R11> Full k 
e a ° ° ° . . ° s FU save entry mas 
QO0OOBQE'EF 00 FB DoRs 44g LLS #0,DISABLE. $51 . 
04 AC p BA 44 MOVL  chf$l_sigarglst(AP),RO ; Get address of SIGNAL arg List 
04 AO 3 046C of § OBE 444 MOVZWL #ss$_debug,4(RO) : Change exception name to SS$_DEBUG 
51 60 ee 0C4 445 SUBL #1, chf$ _$ig_args(RO),R1: Get offset to saved PC value 
50 $041 DE OCB 446 MOVAL  (RODCRIJ>RO ; Get address of saved PC parameter 
80. Q0000047°EF oD 434 44 MOVL sexed R1,(RO)+ 3; Change to user program start address 
51 Q00000043°EF 01 F EF 00D 448 EXTZV #15, #T, saved_RO,R1 ; Get entry-mask decimal enable bit 
6001 07 51 FO O0DC 449 NSV RI dps(Sv_dv7#1, (RO) ; Set decimal overflow bit in saved PSL 
51 Q00000463°EF 01 oF EF QOE1 450 Extzv #i4,H1 saved_R0O,R1 ; Get entry-mask integer enable bit 
60 01 05 + 2 BREA $2) INSV R1,#ps($v_iv,#1. (RO) 3; Set integer overflow bit in saved PSL 
Boer 438 ; fall through into common DEBUG once-only initialization code 
OOEF 455 setup: 
0125 30 OOEF 456 BSBwW save_user_context ; Establish known state of the world 
50 O08 AC DO OOF2 457 MOVL chf$U_mcharglst(AP),RO ; Get address of MECHANISM array 
51 04 A0 00 OOF6 458 MOVL chf$l_mch_frame(RO),R1 ; Get frame of our establisher 
61 O65B°CF ODE ood rt MOVAL W*dbgSfinal_handl,(R1) ; Establish final exception handler 
6D 0640°CF DE OOFF 461 MOVAL W*window_handler,(FP)  ; Establish local exception handler 
0000 30 0104 a6¢ BSBW setup_exit_handler ; Establish DEBUGs final exit handler 
3¢ 50 «6 E9 «©0107 46 BLBC «RO, 1 3: Go EXIT with error-status on failure 
QOOOO000"EF 00 FB QI0A 464 CALLS £0 .dbgsinit debug : initialize DEBUG context. 
0111 465 SSETEXV_S VECTOR=#2,ADDRES=Last_chance; Declare last chance handler 
1F 50 €9 0124 466 BLBC = RO, ; Go EXIT with error-status on failure 
50 O0000000°EF 01 O00 EF 0127 467 EXTZV #dbg$v_control tdbg,#1,dbg$ v.control,RO ; Get TEST DEBUG flag 
01 468 SSETEXV_S VECTOR=RO,ADDRES=pr inary andler; Declare ‘primary’ handler 
0—E 50 EB 014 469 BLBS ° ; Carry on if declaration successful 
50 03 00 04 FO Q146 470 1$: INSV #4,8#0,83,R0 3; Otherwise make this a fatal error 
Bee $2) SEXIT_S RO ; and report status via SYSSEXIT 
50 O04 AC OD bee 473 2$: MOVL chf$l_sigarglst(AP) RO ; Get address of SIGNAL arg List 
51 60 O71 C bree 474 SUBL3 #1 chT$l_sig_args(RO),R1:; Get offset to saved PC value 
6041 DD O15C 475 PUSHL (RO)CRI) 3; Stack PC value for dbg$rst_init 
50 O0000003B'EF DO O1SF 476 MOVL saved_AP,RO ; Get address of CLI vector 
OC AO DD 0166 477 PUSHL cli$a_imghdadr (RO) 3; Push address of image header info. 
50 10A0 00 0169 478 OVL cli$a_imgfiled(RO),RO ; Get the address of the image file 
51 0200 3C 0160 479 MOVZWL ifdSw-filnamoff(ROS.R1 ; get offset to file name 
7E. 51 +=50 1 0171 480 ADOL RO,R1,-(SP) ; Push address onto stack 
7E 08 AO C B13 48) MOVZWL ifdSw_chan(RO) ,-(SP) ; Push channel number onto stack 
QOOOO000"EF 04 FB 0179 $36 CALLS #4,dbg$rst_init | ; Initialize the symbol tables. 
OQ0000000"EF 10 A 8189 ‘3 BICB2 #dbg$m_confrol_exit,dbg$gv_control ; Turn off exit flag , 
0418 1 01 484 Rd prim_4 ; Act as though its a normal exception 
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DEBUG. SRC JDBGSTART MAR; 1 


couplet ten. then control runs back 


BUG forces a SYSSEXIT with th 


Our termination handler then reports this R 


(which starts at 
pair to 


_5- and moves back through the restart 


Save user program's return status 
Stuff over for later restoration. 

EXIT with user's RO value. 
Don't need to set RO here ! 


; Get back return address 
3; Restore saved AP and FP 
3; Restore SP to be the saved FP 
3; Set up fake return address 
: Save current context registers 
Set register save mask & PSW 
sh temporary window handler 
3; Point to current frame 
3; Stack return address again 
3; Replace all BPT’s with their real 
3 _opcodes, and unprotect all pages 
; Return to caller with a new frame 


3; Declare a termination handler 
; Return errer-etenys to caller 

; No re-arranging if TEST DEBUG 

3; Get Link to first USER exit handler 
3; Zero Link means we are the last one 
3; Save address of control block 

3 Un-declare user exit handler 

; Return error status to caller 

3 Repeat for all user exit handlers 

3 Get back address of control block 

3; Report error-status to caller 

3; Re-establish handlers in Lio order 
: Return status in RO 


18A 486 ; 
18A 4 ; s When the  ¥ ot soles runs to co 
18A 488 ; to the label d opyser. exit, and 
18A 489 ; 4 s value of 
18A 490 ; .¢ system mess ge. The rest of this routine 
18A 6491 ; beg oy on 2) is waged to from within the termination handler. 
18A 492; It recreates the or 
18A 495; ores them across SEXIT 
4 $3e 3 ogic to the command processor. 
18A $38 dbg$user_exit:: 
18A 49 CALLS 4 ,disable_ssi 
191 498 G.dbgsgl 8 Sxit Status ; 
198 499 MOVQ RO ,save ; 
019F 200 SEXIT_S RO : Force SYS 
01A8 01 RET ; 
O1A9 808 
O1A9 204 Peeet Saba, 
O1A9 505 MOVL (SP)+,R0 
O1AC §=— 506 MOVQ saved_AP,AP 
0183 507 MOVL FP, 
0186 508 PUSHAB aonchP ABS” exit 
O1BA 509 PUSHR 
O1BE 510 CLRL e 
01c0 9511 HOVAB  term.window handler, (SPS :Establ 
01C7 218 MOVL SP FP 
O1ICA = 51 PUSHL RO 
O1CC §3=— 5514 MNEGL #1,-(SP) 
O1CF 515 CALLS #1 ;dbg$ins_ opcodes 
A aang 
01D7 +518 setup_exit_handler 
=term_block_one 
ater 2}? SoCLEXn ei SBLK=t block 
O1E7 35 BLBS. dbg$qv_control,3$ 
preg 5 ¢ 1$: MOVL germ. block_one.R1 
O1F 5 EQL $ 
O1F? «$24 PUSHL Ri 
O1F9 §=525 SCANEXH_§ DESBLK=(R1) 
0 8 526 BLBC ~RO,2$ 
020 527 BSB 1$ 
of 528 2$ MOVL (SP)+,R1 
A é 9 BLBC RO,3$ 
0D 0 SDCLEXH_S OESBLK=(R1) 
0216 531 3$: RSB 
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-SBTTL DEBUG entry and exit routines - save/restore state of user 


and a other user context in the current RUNFRAME, and to set the 
DEBUG to a known state (AST's disabled, etc.). 


save_user context: 
BCBS dbg$gv_control+1,save_user_context always 
; Only do this if user was ‘in control’ 
RSB ; Otherwise return immediately 
Save.eser _contons always: 


#™M<RO,R1,R2,R3,R4,R5,R6,R7,RB> ; Save all registers we use 
CALLS #0,disable_ssi 


: This routine is called on entry to DEBUG to save the user's registers 
> context o 


SSETAST_S & ; Disable AST interrupts 
MOVAB Pogsruntrene RG : Get pointer to current RUNFRAME 
MOvVa 4(AP),R ; and to SIGNAL & MECHANISM arrays 


BICW2 #dbg$m_enab_fex+dbg$m_enab_ast,dbg$w_run_stat (R6) 
BBSC #dbg$v_control_tbit,dbg$gv_control,2$; (set if ASTs held off) 


CMPL #ssd_wasclr,RO ; Were ASTs enabled? 
BEQL $ : No - flag is already clear 
¢3: BISW2 #dbg$m_enab_ast,dbg$w_run_stat(R6) ; Yes = remember to reenable 
$: SSETSFM_S # ; Disable sys service failure exception 
CMPL #ss$_wasclr,RO ; Was it enabled? 
BEQL * : No - flag is already clear 
BISW2 #db $m_enab. tex dbgSw_run_stat (RO) : Yes - remember to reenable 


4$: PUSHL chfSl_sig_name( ; Stack actual exception code 

CALLS oa Gapeenceet ren is_fault;Get type of exception (fault/trap) 

INSV RO, #dbg$v_at_fault ,#1 dbg$w_run stat(R6) ; Remember exc type 
MOVAL dbg$l_user_régs (RG) .RS ; Get address for user's registers 
mOva chf$l_mch_savr0(R8),(R3)+;Copy RO,R1 from MECHANISM array 
MOVCS #40,20(FPY,(R3) ; Save user registers R2 = R11 
MOVG. sf$(_save ap(FP),(R3)* : Save user AP = FP 
ADDL3) = (R7)741,R0 Get signal arg count plus 1 
MOVAL (R7)ERO4,RO Calculate value of user SP 

R3)+ Save user SP in RUNFRAME 

MOVG = =(RO), (R3)+ ; Save last 2 SIGNAL args (PC & PSL) 
SDCLEXH_S DESBLK=term block two ; Declare coagorery ext handler 
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BICB gén_controf userd-8,d gsov control¢1 ; #s in control 

POPR #*M<ROTRT,R2,R3,R4,R5,R6,R7,RB> ; Restore all used registers 

RSB ; Return with user context saver 
restore_context: 


-WORD “M<R2> ; Save contents of register R2 
BISW2 edbgen control user+dbg$m_control_urun,dbg$gv_control 
MOVAB dbg$runframe,R2 ; Get base of current run frame 
ad g8v_enab_fex.dbgSw_run_stat(R »,18 ; Was SFM enabled ? 
SSETSFM_S @# : Yes - reenable exceptions 
BBC #dbg$v_enab_ast.dbg$w_run_stat(R2),2$ ; Were AST's enabled ? 
BBS Sdbgsv_contFol_tbi -dBg$qv_control,5$ ; and not postponed ? 
SSETAST_S @ ; Yes = reenable ASTs 
: eece #dbg$v_control_tbit,dbg$gv_control,3$ ; No ASTs postponed ! 


s weeeeSs 


2s 

: Time to leave DEBUG, ENABLE SSI, This is the only place we enable SSI. 

$$: CALLS #0,enable_ssi 
RET 
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; User context reset - return 
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4 39 -SBTTL DEBUG Termination and last-chance handlers 
F? 36 TERM_HANDLER: 
0000 F7 9 «WORD “M<> ; Null entry mask 
F9 94 DBGSTERM_HANDLR:: 
aa 44 rr 00 «6FB F9 95 CALLS #0 gisable ssi 
07 QOOOO000'EF €9 oY 38 BLBC pa GL_SCREEN_MODE,2$ ; Set up screen refresh and set scrol- 
QO000000'EF 00 FB 0307 59 CALLS #0,DBGSSCR_SCREEN TERM : ing_re gion back to normal 
OD OOOOOOOO'EF 04 £0 OQ30E 598 2$: BBS #0BG$V CONTROL EXIT , DBGSGV_ CONTROL ,3$ Exit if exit flag set 
00000017"EF 00000980 8F Di 0316 599 CMPL #SS$_CCIFRCEXT; TERM_REAS : Check the exit status 
2D 612 0321 600 EQ z Cont inue unless "CLI forced exit” 
tH ; 601 ; Before we return to CLI, we check for special case. 
24 00000000" EF 06 £0 ons $s: BBS #0BGSV_CONTROL_DONE, pecsey. ton ROL ,4$ 
0328 605 ; In testable Goby ere if the” poet program gees not run to an end, if we 
0328 604 ; reach here vi >EXIT, if re are break points set along the path 
8358 605 ; such as PRIMARY ORANDLER. DBGSEXCEPTION RANDL R in SDBG, causing super 
0328 606 ; debugger goes into an tatie te loop. XIT calls all user declared 
0328 607 ; handler after we reach RET instruction here, one of the user declared 
0328 608 ; handler is the DBGSTERM_HANDLR in Super Bebugper, 5 Super debugger signals 
0328 609 ; exit status, then causing break point faults to take place, note: at this 
0328 610 ; point super onus er is no longer available). So before we RET, we do 
032B 611 ; some cleaning wo 
0000036D "EF 00000017" EF DO 0328 oi¢ MO TERM * REASON, DBGSGL_EXIT_STATUS ; Save the SEXIT status code 
00000001'EF 01 BA 0336 61 BIC #dbg$m_control_usera-8,dbg$gv_control+1 ; DEBUG is in control 
00000000 ' EF “ 8F 8 033D 614 B1SB edbgsa, i “done, dbg$gv control : User program complete 
FE6I 0 0345 615 BSBW _ 3 Re-establish a known context 
50 00000017'EF DO 0348 616 MOVL TERM. tREASO RO 
04 been ott 4$: RET : Don't intercept - return to CLI 
0000036D ‘EF 00000017°EF DO 0350 619 5$: MOV TERM eee DBGSGL_EXIT_STATUS ; Save _ peat status code 
00000017"EF 10000000 8F CA 035B 620 BICL2 #stsSm_inhi ib _msg,téerm_reason Clear ‘inhibit’ bit 
QO0000001"EF 01 BA 0366 621 sites #dbg$m_control _usera~8,dbg$gv_ control+1 ; DEBUG is in seared 
OO0000000°EF 40 8F 8 036D 6 ¢ BISB #dbg$m_control_done,dbg$gv_control : User program complete 
FE31 0 0375 6 BSBW reset_debug 3 Re-establish a known context 
FESC 0 0378 624 BSBwW setup_exit_handler 3 Re-establish final exit handler 
0000004B8'°EF  OOFF 8F C 0378 625 MOVZ2WL #buf_Siz-1; faobufdesc ; Try to convert the status 
OOOOOOGF*EF  QO0000256"°EF 9E baee 626 term buf+1,faobufdesc+4 ; to a system messa ge 
O38F 627 $GETMSG_S MSGID=term_reason.MSGLEN=msg_ length, BUF ADR=faobufdesc 
00000255"EF OO000053"EF 90 O3AC 628 Vv msg_ a ,térm_buf ; Make “counted string in TERM BU 
00000255°EF 9F 0387 $93 PUSHAB tera bu 3; Address of counted stri ng 
01 OD 0380 630 PUSHL : One FAC per sneter for SIGNAL 
00028068 8F DD 038F 63) PUSHL figs © : escege numbe 
00000000'GF 03 FB b3C3 ° ¢ CALLS iiss ; SIGNAL exit status back to DEBUG 
Osec g37 lLast_chance 
0000 cc 3 6635 " : Null entry mask 
OOBOE‘EF 00 FB Ha; 636 CALLS 10° DISABLE SSI 
00000001°EF 01 BA D 637 BICB2 #dbg$m control _usera-8,dbg$gv_control+1 ; DEBUG is in control 
O0000000'EF 6C FA D 638 CALLG (AP) ,dBbg$put msg ; Output signal message text 
50 O8 AC DO O3E3 639 MOVL ches “achergis (AP),RO : Get address of MECHANISM array 
00000043"EF OC AO D 8 E 640 MOva chf$l-mch_savr0(RO), saved RO ; Save contents of user registers 
FOB? 3830 EF 641 BSBW reset. debug :"Reset stack to a known state 
00028258 a DD re 66g PUSHL sabas feet rhenes 3 mesenee, tux number 
00000000 ' GF 1 FB 4 or CALLS *CIBSSIGNAL 3; SIGNAL back in to DEBUG 
8 FF 645 term_ pints handler 
OFFC FF 646 wORD amcR2, R3,R4,R5,R6,R7,RB,R9,R10,R11> 3 Full entry mask 


pennies 
C 14 
| DBGSTART i os Sat 9 93:30:33 AX/VMS Macro v04-00 Page H 
, V04-000 DEBUG Termination and last-chance handl 4-SEP-1984 25:59:28 ([DEBUG.SRCJDBGSTART.MAR; 1 (15) 
| cooteg ‘EF 00 FB 0401 647 CALLS #0,DISABLE_S 
O4,AC 7D 0408 648 MOVa = ch F$L najnrgt ee cap ).R2 0; Get SIGNAL & MECHANISM addresses 
OC AS OO0000G3"EF 7D O40C 64 MOVa save L_mch_savr0(R Set contents of user R1 
04 B83 D& 0414 650 CLRL achf$Tt meh. frame(R3) : eat Link to this handler 
orn a 6C FA 04617 651 CALL (AP) ,dBg putnsg ; Output signal message tent 
1 62 01 C3 041 634 SUBL3 #1, (R2) OR : Get offset to saved PC v 
241 04 04 65 LRL —s-« (rR) # ERA ; Clear PC to make restart *aifticult 
62  046C 8F C 04 654 MOVZWL #ss$_ debug, (R2) ghang ge signal name to ‘SS$_DEBUG’ 
OOOOOOCI"EF 01 8 042A 655 BISB2 #dbg$m_control_usera-8, abg gv_control+l ; User was in control 
016E 1 0431 656 BRwW prim_3” ; Go Save context & issue DEBUG prompt 
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DBGSPSEUDO_PROG = Structure to implement 4-SEP- 9:28 (DEBUG.SRCIJDBGSTART.MAR; 1 16) 
: r $28 -SBTTL OBGSPSEUDO_PROG = Structure to implement CALL 
434 660 dbg$pseudo press 
OOO000S2"FF  OOODO0GE'FF FA ? ; e83 CACLG § adbgSrunframe+dbg$l_frame_ptr,adbg$runframe+dbg$l_call_addr 
45— 665 dbg$pseudo_exit::; Label to detect STEPping off the end of the CALLed routine. 
QOOOOBOE "EF 90 Fa O43 «664 CACLS #O,disable ssi . 
00000045'EF 0 7D 0446 665 mova 0,saved_R ; Save return value from user procedure 
44D 66 SSETAST_S 3; Disable AST interrupts 
228 66 tht DESBLK=term_block_two ; Declare Sener ery exit handler 
00000001"EF 01 BA 046 668 B1CB “ters control_userd-8,dbg$gv_control+1 ; DEBUG is in control 
6D 0 046A 669 MOVL (FP), AP i Get pointer to current handler 
7E* AF E 190 670 MOVAW B“pseudo_handler,(FP)  ; Get handler to bootstrap into DEBUG 
00028001 8F DD 0471 671 PUSHL @d a normal : Get phony exception value 
00000000'GF 01 FB 0477 ore CALLS #1,G*CIBSSIGNAL ; SIGNAL back to proper context 
Beee or? : point of no return ! 
OFFC 9t4 3 of? pseudo_handler: .WORD “M<R2,R3,R4,R5,R6,R7,RB,RI,RI0O,R11> ; Full save mask 
C 7D 0480 677 MOVQ chf$l_sigarglst(AP),R10 ; Get pointers to SIGNAL & MECHANISM 
4 68 DO 0484 678 MOVL sf$l_Save_ap(FP) ,achf$l_mch_frame(R11) ; Restore handler 
QOO00000"EF 00 FB 0489 679 CALLS  #0,dbg$flishbuf ; Initialize print buffer. 
QOOOOO00'EF DF 0490 680 PUSHAL routine_value 3; Report the value returned 
00000000 * EF FB 0496 681 CALLS #1,dbg$print : Insert text in buffer 
Q0000043"EF DD 0490 ret) PUSHL saved_R ; _call of DBGSOUT_NUM_VAL 
QOOOOO0O'EF 01 FB Q4A3 68 CALLS #1,dbgSout_num_val ; Insert returned numeric value 
OOOO0OO0'EF 00 FB O4AA 684 CALLS #0,dbg$newTine ; Output buffer contents 
5B OO0000000°EF 9& 0481 685 MOVAB dbg$runframe,R11 ; Get address of routine’s runframe 
56 68 00 0488 686 MOVL dbg$l_next_Link(R11),R6 ; and address of previous runframe 
55 4€ ae 00 0488 687 MOVL oes frame_ptr(R11),R5 ; get address of routine argument List 
54 6 it O4BF 688 MOVL (R5) ,R4 ; Get number of parameters passed 
25. (13 «(04C2)~—s 689 BEQL $ ;_No data structure if no parameters ! 
53. 61 BB44 DE 0404 690 MOVAL a@dbg$l_save_fld(R11)CR4],R3 ; Otherwise get MEMUSE vector 
O000035D°EF 73 DO O4C9 691 18: MOVL -(R5) ,param_1 3; Get memory used for this parameter 
0B 13 04D 69 BEQL 2s : Zero means none allocated ! 
O00000000'GF  Q0000359"EF FA 04D 69 CALLG peren.0.6%dbgSrel nenory: Otherwise release memory again 
E9 54 FS Q4DD 694 2%: SOBGTR R4,1$ ; Loop for all parameters 
53 DD O4E 695 PUSHL R3 : Then point to MEMUSE vector area 
00000000 * GF 9) FB O4E 69 CALLS #1,G*dbg$rel_memory : and release that space as weil 
5 DD 04E 697 38: PUSHL R5 ; _Push address of biock. 
00000000 ' GF 4 eB Ree 698 CALL 61 GdbgSret senory ; Free space used for argument List 
68 66 0065 8F 28 O4F 99 MOVC3 #dbgSk_runfr—len,(R6),(R11); Restore previous context 
56 DD O4F 00 PUSHL R6 ; Push address of runframe 
00000000 ' GF 9 FB gers 701 CALLS #1,G*dbg$rel_memory ; Free this storage too 
§ bs 501 7 ¢ CLRL R . Pop “unhandled exc’ stack 
00000000'EF42 00000001'EF4 ° 503 703 4$: MOVB oaenes UNHANDLED _EXC+1CR2I.D G$GB_UNHANDLED_EXC(R2) 
fr 52 F 510 704 AOBLEQ #8,R2,% 
00000000°EF 01 91 0514 705 CMPB © #1 ,DBG$GB_CALL_NORMAL_RET; Set CALL flag to indicate a normal 
6 12 0518 706 BNEQ : return from a CALL command call 
gocognee* 9 82! 70 INCB DBG$GB CALL NORMAL RET 3 (used to suppress screen update) 
51 6A . Ue 5 708 5$: SUBL3 #1, (R10),R : Get offset to saved SIGNAL PC 
51 6A41 DE 05 709 MOVAL (R10)CR14,R1 > Get actual address for PC & PSL 
04 AA  046C 8F C 0528 710 MOVZ2WL #ss$_debug,4(R10) ; Change signal name to ‘SS$_DEBUG" 
61 40 AB 7D 0531 711 MOVQ dbg$T_user_pc(R11),(R1) ; Restore PC & PSL to SIGNAL array 
6€ 11 0535 712 BRB prim& 3 Rejoin common exception flow 
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.SBTTL PRIMARY_HANDLER 


++ 
FUNCTIONAL DESCRIPTION: 
geept on handler declared in the gt vector. Simply resignals 
f the exception occurred Gurine the execution of a debug command. 
If the exception occurred in the user program being debugged, this 
routine disables ASTs (if they were enabled), saves the registers 
from the user program at the time of the exception, and then calls 
a@ routine to handle the exception. ? 
When the called routine returns, the registers are restored, ASTs 
are re-enabled (if they were disabled), and the exception handler 
returns with the resignal value received from the called routine. 


3; CALLING SEQUENCE: 
3 4(AP) = Address of SIGNAL ARRAY 
: 8(AP) = Address of MECHANISM ARRAY 
3; IMPLICIT INPUTS: 

3 The global flag dbg$v_control_user, which indicates whether the 

: user program was running, or BEBUG was executing a debug command. 


IMPLICIT OUTPUTS: 
The ‘‘dbg$v_enab_ast’’ flag indicates whether asts were enabled 
at the time of fhe interrupt 


ROUTINE VALUE: 
SSS_RESIGNAL or the value returned by DBGSEXC_HANDLER 


; SIDE EFFECTS: 
The user may get control under DEBUG 
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OFFC ; 7 rg ENTRY PRIMARY_HANDLER, “M<R2,R3,R4,R5,R6,R7,RB,R9,R10,R11> 
: 3 fi pr tn_nend) fi! #0, disable_ssi 
“at 5918 SP ee 27 28 mOVZUL tt res gnal,RO ; We usually want to resignal exception 
51 4 AC 06 a8 750 MOVL chf$l_sigarglst(AP),R1 ; Get address of SIGNAL argument List 
04 Al 00028001 F Di 0549 751 CMPL #dbg$_normal ,4(R1) ; Fake DEBUG-generated signal ? 
13 0551 7 BEQL z ; Yes - just resignal it at once 
04 Al 0000046C 8F 01 224 3g CMP #ss$_debug,4(R1) : Generated by “Y,DEBUG sequence ? 
12 B 754 BNEQ i$ ~ 3 No = pass on to next hendler 
50 nF. 325 755 MOVZWL #ss$_continue,R ; Get ready to ignore ‘SS$_DEBUG' 
QOOOOOOO'EF CE 56 75 BLBS dbg$gv_control,2$ ; Always ignore if testable debugger 
13 00890008" F ae 9 7 ; BBCS #06 v_control_stop,dbg$gv_control,1$ ; Set STOP flag 
14 00000001 ‘EF : , > oe BLBS db 4 vrcontrolti. $6 ; Continue unless DEBUG was running 
00000000" EF 0 8 355 759 BISB2 4 #dbg$m_control_fail,dbg$gv_control ; and the STOP flag was set 
50 918 BF €C 0570 760 MOVZWL asst résignal RO 33 $ Rinne Be pee ah Re 
’ ° s ; ar u N 
ee ae v4 0385 ree 33: RET ere ; Yes - return to exception dispatch 
SBA 76 
i : rol_sdbg,dbg$gv_control,prim_3 ; If SUPERDEBUG, 
Oe AY 90028852 BF 5 $890 ie ” CRP Fdbes Sencrdcbae etaiy” See if this SOPERDEBUG gral 
rim : - 
04 Al 046C Be 3¢ baoe e8 MOV IWL $ss$~debug, 4(R1) ; SUPERDEBUG gets changed to DEBUG 
FC72 35 OSA 768 prim_3: BSBW save_user_ context ; Establish known state of the world 
6D O640°CF ODE Seas 769 prim_4: MOVAL W*window Randler,(FP)  ; Establish temporary exception handler 
OOOOOO00"EF 6C FA OQSAA 770 “ CALLG (AP), dbgSexc_handler : Call inner exception handler 
450 €9 0581 771 BLBC RO,return_to user ; Just return if re-signalling 
1C QOOOOO0O'EF OA €0 0584 77 BBS #dbg$v_control_tbit,dbg$gv_control,return_to_user; Single-Step ? 
Q00000000°EF 09 €1 O5BC ae BBC #dbg$v_control"stop,dbg$gv_control,return_to_user; “Y, DEBUG 7 
361"EF  QOO000040'EF 00 0504 774 MOVL db aruatrenesdbe8l user regs+60,user_pc ; Yes - save ne 
QOO000040'EF  O862°CF 9E pate A “en ee W*Pseudo_Signal ,dbgSrunframe+dbg$l_user_regs*60 ; & set new PC 
5A 04 AC 7D 0508 5S akg, OVO == & (AP) R10 ; Get address of SIGNAL & MECHANISM 
01 6B O05DC 778 PUSHR #*M<RO> : Save resignal value 
51 OQO00000046'EF DE 05D 779 MOVAL db Srun trans dogs user rege Rt ; Get address of user regs 
81 70 Hay 780 MOVa cRY)¢ 12(R11) ; And restore RO - Ri, 
14 AD 61 28 28 O5€9 781 MOVCS #40,(R1),20(FP) > user R2 = R11 
08 AD 81 SEE 78 MOV. (R1S+,8(FP) > _ and user AP = FP 
01 (8 FS 38 SUBL3 #1, (R10) ,R2 ; Get offset to saved SIGNAL PC 
52. 6A42 DE 0576 784 MOVAL (R{I0)CR25,R2 ; Get actual address for PC & PSL 
62. 04 Al 7D O5FA 5 MOVO = &(R1), (R25 ; Restore PC & PSL to SIGNAL array 
6D D4 OSFE 78 CLRL (FP) ; Remove stack-frame eucegt on handler 
seie4 78 SCANEXH_S DESBLK=term_block_two ; gavdeclare tensor ory Guts, Dendiler 
3 reset u 
a Sf Bh NSE 89 POPR “mae ; Get the resignal value back 
Be 0614 790 RET : and return 
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79 -SBTTL DOBGSTHREAD_BPT = Entry to DEBUG for threaded BPT's 


7 poe 
794 ; FUNCTIONAL DESCRIPTION: 
7 This routine is called by a ‘JMP a(R11)+"" instruction when the ‘‘thread’’ 
rocessor encounters the thread where the user has set a breakpoint. 

n except ten frame is built on the stack to describe the breakpoint 
using R11 -4 as the address of the “‘PC’’. The PRIMARY_HANDLER is called 
which will announce the breakpoint and process user commands. 


i i | 
ooouowov0ono 
Wer 


When the user issues a GO or STEP command the actual thread is moved 
onto the stack from R11 and the exception frame is removed. The user 
program is then restarted by an REI to the next thread. 


CALLING SEQUENCE: 
R11 - ae the address after the thread where the breakpoint 
was set. 


IMPLICIT INPUTS: 
The routine was called with a JMP a(R11)+ instruction. 


IMPLICIT OUTPUTS: 
R11 is still the thread pointer. 


ROUTINE VALUE: 
None. 


| 


SIDE EFFECTS: 
None. 


dbg$thread _ bpt:: 
. MOUPSL 
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Remove all but new PC = PSL pair | 
Transfer control to ‘‘thread’’ routine 


Dp rt Et ee te at chert ber er er ber bereft 64 8 4 4 4 8 8 
=O OONOAOU EWN 9 OO NOAUEUIN $$ 9 ODNOU EW O OONOUE WN | O 


FOV ODP ARIS BW ODE SF QO NIP 
BF PFAANAAA AAAI WII GIPIPIDINPIPININININIDS 2 2 OO  "QOOODOOCOCOCO 


7E OC (SP) ; Save the current PSL 
7B OF PUSHAL =(R11) ; Treat R11 as the PC, and set it to 
; the address of the thread. 
00000414 8F ODD PUSHL #ss$_break ; This is a breakpoint exception. 
03 DD PUSHL # 3: Exception frame has 3 longwords 
7E 50 7D mMOVa RO,-(SP) : Save RO 
cf CLRQ -(§P) 3; next 2 (ongwords of mechanism array 
04 OD PUSHL #4 :; Mechanism array has 4 longwords. 
6— OF PUSHAL (SP) ; Build arg List for primary handler 
18 A DF PUSHAL 24(SP) : 
FFOS CF O FB CALLS #2,primary_handler ; Call primary handler 
dbg$thread ret:: ; Label where threaded breakpoint returns 
1¢ AE 8B 00 MOUL (R11)+,28(SP) ; Save user's actual thread in case 
: he changed it during the breakpoint 
_—. ADDL2 #12,SP :; Get address of new R0,R1 
50 «68 MOV (55+ .RO 3; Restore RO,R 


Ova 
ADDL2 8.SP 
REI 


beesyaat 17360-1388 § 82:33 AX/VMS Bere v04-00 Page 33 
v04-000 WINDOW_HANDLER = Call frame exception ha 4=-SEP-1984 259: DEBUG. SRC JDBGSTART.MAR; 1 (20) 
rh is -SBTTL WINDOW_HANDLER = Call frame exception handler 
64 45 ; FUNCTIONAL DESCRIPTION: 
64 rf : This handler is put up by the primary handler to be used ity the 
64 47 ; "“window'’ during the precese tng of an exception and before the DEBUG 
64 rt: 3 prompt is output. SS$_DEBUG signals are ignored (we are trying hard 
64 49 ; to get back to DEBUG command level). everything else causes a jump 
rn 29 3 to FINAL_HANDLER to report the error. 
64 3 ; CALLING SEQUENCE: 
64 33 3 4(AP) = Address of SIGNAL ARRAY 
deco 2¢ ; 8(AP) = Address of MECHANISM ARRAY 
64 36 ; IMPLICIT INPUTS: 
oec) BSB : a 
0640 859 : IMPLICIT OUTPUTS: 
oeco Bet athe 
0640 B6¢ > ROUTINE VALUE: 
a on eee 
0640 865 : SIDE EFFECTS: 
eet 566 ; Errors reported by FINAL_HANDLER 
0640 868 window_handler: 
OFFC 0640 869 «WORD “M<R2,R3,R4,R5,R6,R7,RB,RI,RIO,R1I1> 
OOO0OBOE"EF 00 FB 0642 870 CALLS #0,DISABLE_SS1 
AC DO 0649 1a MOVL 4(AP) ,RO ; Get address of SIGNAL ARRAY 
0000046C 8F 04 AO D1 0640 8 CMPL 4(RO) ,#ss$_debug ; Is this the DEBUG exception ? 
06° 12 0655 87 BNEQ dbg$f inal Randl+2 ; No = transfer to the final handler 
50 01 3C 0657 874 MOVZWL #ss$_continue,RO : Yes - load CONTINUE code 
04 065A 875 RET :; Ignore extra ‘SS$_DEBUG’ signals 


aan | 
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77 -SBTTL DBGSFINAL_HANDL = Call frame exception handler 


Functional description: 
This handler is the ultimate exception handler for exceptions 
that occur under DEBUG control or during execution of the user 
program. Any exception that gets here has already passed thru 
he handlers gecondery andlers, and user-declared 
stack handlers. fhis handler stops the exception from causing 
an exit to the operating system, and drops the user back at 
DEBUG command Level. 


PAEAAAAAAASAAAO 
@ 
(C200 Cd Cd 09 C0 CD CO CD CD OD CD CD 
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This routine first determines whether it was called because of 
a hard/software exception condition, or because of a software 
generated SIGNAL. The identification of the error is from the 
signal-arg-list. 


The handler outputs DEBUG generated messages and gperet ing 
system generated conditions in distinct manners. The latter 
conditions are reported, analyzed for source of error, and 
then the user regains control. DEBUG messages are output, and 
control is returned to the user or to CLI according to the 
severity of the message. 


wath tne sequence: 
(AP) = Address of SIGNAL ARRAY for an exception. Contains the 
exception name, the PC of the exception, and the PSL 
and any additional FAO arguments required by the 
gore tcules message to be generated. 
B(AP) = aedress of MECHANISM ARRAY for an exception. Contains 
an 


908 ; Implicit inputs: 
The global flag DBGSV_CONTROL_USER says whether DEBUG or the user 
was running when the exception occurred. The severity of the error 


is determined by the low three bits in the error identifier. 


Implicit outputs: 
sn egy of the exception is changed if PRIMARY_HANDLER is 
called. 
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Routine value: 
SS$_RESIGNAL is returned when the exception was SS$_UNWIND. 
SS$_CONTINUE is returned when the exception occurred in DEBUG 
code (unless the error was fatal). 
Otherwise, this code JMPs to primary_handier and the return is 
ependent upon many subsequent things. 
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Side effects: 
An error message is output to the terminal. 
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SOOEE TA, ANNE, «HERE AS AA BS ASAT AO ADAG BT 
CALLS # 


isable_ssi 
MOVL CHESL S1GARGLST(AP) ,R2 ; Get address of signal argument List 
CMPL 4(R2), #@SS$_UNWIND 3 Is this a SYSTEM unwind exception ? 
BNEQ : If not unwind, look at it further. 
MOVZWL #SS$_RESIGNAL ,RO ; if unwind, just resignal condition 
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8 ([DEBUG.SRCJDBGSTART.MAR; 1 
RET 


MOVAB B*DBGSF INAL_HANDL ee : Establish ourselves as a handler 
MOVZBL DBG$GV_CONTROL*+1 R ; Save current state of DEBUG/USER flag 
BSBW SAVE_USER_CONT : Establish known state of the world 
BIst2 #RABSM_CCO,DBG$GL_OUTPRAB+RABSL_ROP ; Cancel control-0 


4(R2) ,BSS$_DEBUG ; Is this the DEBUG exception ? 
BEQL 3; Yes - r-ppces® aqeee @ output 
CMPL 4(R2) , #D0BGS_NORMAL + Special DEBUG initialization ? 
BEQL : Yes - suppress message output 
CALLG (AP) ,DBGSPUTMSG 3; Write system message to DBGSOUTPUT 
CMP7V #STS$V_FAC_NO,#STS$S_FAC_NO 4(R2) .4DBG FACILITY ; 
BNEQ 7 Skip if’ facility is not DEBUG 
CMPW = 4 (R2) ,WSHRS_APPENDEDB =; Not DEBUG if bit 15 is clear unless 
BLSSU 28 : this is a ‘’shared’’ message 
JMP FINAL_2 
Come here if not a DEBUG-specific exception (System or User generated). 
If the user was running, jump into the register gh exception handler. 
If DEBUG was running, output a message saying that DEBUG caused the error. 
BLBS R3,38 ; Report error if DEBUG was npning 
BRW FINAL_3 : by branching to FINAL_ 
SUBL3. #1, (R2),R4 3 Get address of saved PC 
PUSHAB DBGSPSELDO EXIT ; Get address of DBGSPSEUDO_EXIT 
CMPL (R2)CR4),(S5P)+ 3 See if oy routine has finished 
BEQL 4$ : If so, just return CONTI 
BLBS 4(R2) ,4$ : Continue if INFORMATION or SUCCESS 
MOVL  (R2)CR4],USER_PC : Save actual user PC for error 
MOVL 4(R2) ,OBGSGL_EXIT_STATUS; Remember error status (for EXIT) 
ed $9,45.4(Re) 06 3; Check for severe error 


: If not, don't fill in gtebet 
MOVB #1,D0BGS$GB_UNHANDLED_EXC ; Remember that an unhandled exception 

. has occured in the user program 
35$: SUNWIND_S DEPADR=CONST_O,NEWPC=PSEUDO_S1GNAL 3; Unwind the stack 


After the UNWIND, return to the user, but do so without restoring the 
registers. The Exception-Handling Facility requires that we not change 
the saved PC, and in any event there is no need to restore any registers 
since they cannot be changed (via DEPOSIT, etc.) in the Final Handler. 


Bree te te te te te 


MOVZWL #SS$_CONTINUE,RO ; Return status ‘‘CONTINUE” 

BLBS “ ; Restore registers on user exit 

TSTL GS$GL_SCREEN_ERROR ; Do not purge type-ahead if error msg 
oe 3 went to a screen display 


4(R2),5$ ; Do not purge type-ahead if severit 
BISL #RABSM_PTA,DBGSGL_INPRAB+RABSL_RO ; _ is INFO or SUCCESS 
BICL #RABSM_CCO,DBGS$GL_CUTPRAB+RABSC_ROP 3; Un-cancel Ctri-0 
RET 3; Return to exception mechanism 
PUSHR #*M<RO> 3; Save resignal value 
CLRL F 3; Remove stack-frame exception handler 
SCANEXH_S DESBLK=TERM BLOCK_TWO ; Un-declare Semper or exit handler 
CALLS “#0,RESTORE_CONTEXT ; Go reset user AST/SFM enables 
POPR #*A<RO> 3; Get the resignal value back and 
RET 3 return from the Final Handler 


Arrive here because the error was generated by a DEBUG signal. 


aes 


(ee ; 


15*SEP=1984 23:47:35 VAX/VMS Macro v04-00 p 6 
DBGSFINAL_HANDL = Call frame exception h dqsePoloae $3:49:3 soe $f, 


DBGSTART 
v04-000 :28 (CDEBUG.SRCJOBGSTART.MAR;1 


746E 86991 
1F QOOOOOOO'EF €E9 rt 398 heetsie DBG$GV_ CONTROL ,6$ Only SIGNAL if testable DEBUG 
P ; On estable 
04 04 P 88 bo fe 7 5 994 CMPZV o#STS VISEVERITY,ASTSSS_ SEVERITY, 4(R2) ,ASTSSK SEVERE ; Fatal ? 
A 1 758 8995 BEQL ; If so, signal condition 
00028362 8F 04 A2 D1 O07 44 CMPL 4(R2) ,#DBGS_INTERR ; Check for either of ghe two 
12 076 99 BNEQ 6$ ; _‘DEBUG internal coding error’ 
00028352 8F DD 076 998 5$: PUSHL #DBG$_SUPERDEBUG :; Get special signal for SUPERDEBUG 
00000000 ' GF 1 FB 26D 999 CALLS #1 § CISSSIGHAL ; Alert the superdebugger 
44 04 A2 3 774 1000 6$: BLBC 4(R »,FINAL_4 ; Exit, but allow DEBUG to continue 
008D 1 ore 198) BRW FINAL_5S 3 if message is ‘INFORMATION’ 
0778 1908 FINAL_3: 
0000046C BF O4A D1 a 1004 CMPL 4(R2) ,#SS$_DEBUG : Is this the DEBUG exception ? 
3 13 0783 1005 BEQL FINAL ; Yes = UNWIND to DEBUG command level 
1B 00000000'EF g3 E2 0785 108 BBSS #0BGS7 CONTROL_FAIL ,DBGSGV CONTROL,8$ =; Set failure flag 
00028322 BF DD 780 100 PUSHL #DBG$_DBGERR ; Message blaming DEBUG for the error 
01 OD 0793 1008 PUSHL #1 ; Number of parameters 
00 oD 0795 1009 PUSHL #0 3: No facility string 
O8CE'CF 9F 0797 1010 PUSHAB W*DBGSOUT_MESSAGE ; Action routine name to output message 
08 A 9F 0798 1011 PUSHAB 8(SP) ; Address of argument List 
00000000'GF 0 FB 1443 pig CALL #3,G*SYSSPUTMSG : Get message formatted and output 
5 08 ¢cO O7A5 101 ADDL #8,SP 3 Remove secporery ore list 
OD OOOOO0OO'EF £9 O7A8 1014 8S: BLBC DBGS$GV CONTROL,FINAL_4 ; Are we a testable DEBUG ? 
00028352 8F DD O7AF 1015 PUSHL #DBG$_SUPERDEBUG 3 Yes - get special signal 
00000000'GF 01 FB ares 1916 CALLS #1,G*CIBSSIGNAL ; Alert the superdebugger 
07BC 1018 ; The messages are all out. Unless the exit flag is set, do end-of-command 
07B8C 1019 ; procescing and unwind the stack to the caller of the command processor, 
078C 1930 ; (or whoever established DBGSFINAL_HANDL as the exception handler) 
07BC 1021 ; and return a continue code. 
07BC 1956 : 
o7BC 108 FINAL_4: 
70 OOOOOO00'EF 04 €E€0 O7BC 1024 BBS #DBGS$V_CONTROL_EXIT,DBGS$GV_CONTROL,FINAL_6 ; EXIT if flag is set 
50 00010000 8F 02 C5 O7¢4 1025 MULL3 #2, R ; Get DEBUG facitity code in R 
50 00001080 8F CO O7CC 1026 ADDLg #SHRS$_READERR, RO > Change SHR$_READERR to DBG$_READERR 
5 04 C8 0703 1027 BISL #*x0004, RO : Set the fatal bit on. 
50 04 A2 01 0706 1028 a 4(R2), RO : If the message is DBGS_READERR 
OA 13 O7DA 44 BEQL FINAL_ 
00028138 8F 04 A2 01 O7DC 1030 CMPL 4(R2)> BDBGS_INPREADERR ; Keypad input error? 
09 12 O7E4 1031 BNEQ FINAL_4_2 3 No, continue 
07E6 1936 FINAL_4_1: 
14 Q0000000°EF D1 O7E6 10 MPL DBGSGL_READERR_CNT, #20 ; Tried 20 times, get the same error 
57 18 ree 1938 Sees ‘di GEQ FINAL_7 : Yes, force exit 
00000000'EF 00 FB O7EF 19 § “ “CALLS 40 DBGSEND_OF LINE : Clean up DEBUG internal status 
50 O08 AC 00 O7F6 1 OVL  8C(AP),R : Get address of mechanism array 
OC AO D4 O7FA 1 8 CLRL CHF SL_MCH_SAVRO(RO) ; Make sure returned value is 0 !! 
7FD 1 SUNWIND_S ; Unwind to caller of the routine 
08 1040 3 that declared this handler 
08 1041 FINAL_5: cs -s 
50 91 3C 08 1 rk: MOVZWL #SS$_CONTINUE,RO ; Return status ‘CONTINUE 
$3 :. pe 104 BLBS ; Restore registers on user exit 
000000 Over D E 1044 TSTL DAGSGL_SCREEN_ERROR ; Do not purge type-ahead if error msg 
ess 14 1045 BNEQ 118 3 went to a screen display 
08 0s A2 € 16 1 £6 BLBS 4(R2),11$ 3; Do not purge type-ahead if severit 
00000004 ‘EF 20000000 8F C 1A 104 BISL2 #RABSM_PTA,DBGSGL_INPRAB+RABSL_RO : is INFO or SUCCESS 


|} C8; OE OE Oe Oe OR OR Re ee ee ee ee ce ee ee ee ee ee ee ee ee ee ee OE eee sac 
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00000004"EF 80000000 &F ; 104 g 190s BiCLe #RABSM_CCO,DBGSGL_OUTPRAB+RABSL_ROP 3; Unecancel Ctrl-0 
104 RET Return to exception mechanism 
FDA4 a... i ¢ Tete BRU RETURN_TO_USER Go restore user context 
‘| 
4 1 38 FINAL_6: 
50 04 A2 4 1054 sr 4(R2),R ; Unrecoverable error - am’ code 
50 03 00 04 8 1055 INS v. #4,80,#3,R0 3; Change severity to FA 
dD 1 2$ SEXIT_S RO’ 3 and take an exit. 
26 1088 FINA 
9000900; ff 88 se 1 35 FINA L.? ‘BIse2 e0ecsn yok y JEXIT, DBGSGV CONTROL; Set Exit A oon on 
9253 128 er DO 4D 1060 MOVL #0BG$_READERR, RO Set the exit statu 
FO 0854 1061 INSV #4,80,85,R0 : Fhonae severity to SF ATAL 
0859 1062 SEXIT_S RO- 3 and take an exit. 
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° 1064 PSEUDO_SIGNAL: 

0 i: Fe 1 CALL #0, disable_ssi 

00000004" a 000 000 ¢ § BISL2 #RABSM PTA’ DBGSGL. INPRAB+RABSL_ROP Purge type-ahead 
0000 o2. 5D = 4 MOVL FP USER, FP’ 3; Save user's frane point 
90000568 MOVL (FPR) DLER : Save pointer to stack handler 


MOVAB secealine pea 
MOVAL DBGSL SER MhECS (ROD, RO 


MOVAB B*LOLAL HANDLER, (FP) 
PUSHL #DBG$_N 
CALLS #1 er tBSs LENAL 


LOCAL_HANDLER: 


; Re store 
user By | aati 
RO a 


; Set — @ one-shot handler 
Get special exception value 
SIGNAL back to DEBUG context 


“ or 
00028001 BF OD : 
00000000°GF 01 F : 


Oooo 

Go 0D CD 

PPP OOOMM>C§, 

ee PS 
a tk a et ed = a 
COO NINN SIN NINIOOOAOO 
FAN | O OONOUS WN" OWOOwou 


GOOOCOCOOOCOoOooOOooooo 


“OFFC ~ WORD ont. R3,R4, Rie R6,R7,R8B,R9,R10,R11> 
OOOOOBOE'EF 00 FB O8A3 CALLS #0,disab bless ssi 

00000365'°FF  Q0000369°EF DO OBAA MOVL HANDLER ; Restore user's original handler 

AC ° 0885 MOVL od SIGARGLST (AP). RO ; Get address of signal srqusent list 
04 AO 3 046C BF g 0889 MOVZWL ess BEBUG,4(RO) ; Change signal pame to SS 
01 C3 O8BF SUBL3 0), yee ; Get offset to PC in SIGNAL args 
6041 ~00000361'EF 00 08C3 MOVL Ustn PC; (RO)ER1) ; Restore actual User Error PC 

FCD4)§«=6s331—s—«éO8CB BRwW m-3 3; Go save context & issue DEBUG prompt 


Sst 
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04-000 DBGSOUT_MESSAGE = Write SYSSPUTMSG outpu 4-SEP-1984 DEBIIG. SRC JDBGSTART.MAR; 1 3) 
+ ! § -SBTTL DBGSOUT_MESSAGE = Write SYSSPUTMSG output to DBGSOUTPUT 
cE 1 8 34+ 
oy ; FUNCTIONAL DESCRIPTION: 
CE 1090 ; This routine is called as an action routine from EXESPUTMSG to output 
CE 1091 ; the string that EXESPUTMSG has just formatted. The string is output 
1 oe 35 ; to the logical device DBGSOUTPUT, and a value of zero is returned to 
ths : 7 ; EXESPUTMSG preventing it from outputing the message also. 
O8CE 199) ; CALLING SEQUENCE: 
ace : 38 3 4(AP) = Address of a quadword string descriptor 
HE: 1998 ; IMPLICIT INPUTS: 
pate 1988 ; The output RAB for DBGSOUTPUT at Location DBG$GL_OUTPRAB 
O8CE 113) 3 ROUTINE VALUE: 
bare 11 ¢ 3 RO = 0 = To inhibit further typing of the message 
BCE 1103 ; 
O8CE 1104 ;-- 
: O8CE 1105 
0000 pace 1196 -ENTRY DBGSOUT_MESSAGE , “M<> 
50 4 9E O08D0 1108 MOVAB a@4(AP),RO ; Get address of gs descriptor 
Q00000022"EF 60 B80 O08D4 1109 MOVW (RO) ,dbg$gl_outprab+rab$w_rsz 3; Load string length into RAB 
Q00000028'EF 0 DO bees 1110 MOVL 4(RO) ,dbg$gl_outprab+rab$l_rbf ; Load address of string 
3F OOOOOOOO'EF E9 O8E3S 1111 BLBC dbos9h.def_out. 1 ; Check if LOG file being written 
OOO1SS*EF 21 90 OB8EA ig MOVB a a 3; Put ‘"!"' into first byte of LOG buf 
20 Q00000028'FF Q0000022°EF 2C O8F1 111 MOVCS  dbg$gl_outprab+rab$w_rsz,a<dbg$gl_outprab+rab$l_rbf>, - 
00000156°EF  OOFF BF O8FD 
0905 1114 rt yp de The buf+1 3 Copy meesene to LOG buffer 
00000022"EF O0000022"EF 01 Al 0905 1115 ADDW3 #1, dbg$gl outprab+ra Su_rsz.dbgsgt lograb+¢rab$w_rsz ; Length 
00000028°EF QO000015S5°EF 9E& 0911 1116 MOVAB Log_but .dbasg lograbtrab$l_rbf ; Coad address of string 
091C 1117 $PUT RAB = dbg$gl_lograb ; Write string to LOG file 
OOOOO000'EF D5 0929 1118 1$: TSTL dbg$gl_screen_error :; If errors are redirected to a screen 
10 13 baer 1119 BEQL 2$ 3 display, call screen WRITE_ERROR 
OOOOO0O00'EF 9F 0931 1120 PUSHAB dbasal outprab : routine instead of $PUT to out- 
Q0000000'EF 01 FB 0937 6] CALLS #1,dbg$scr_write_error ; put the message 
1050 €8 O93E 11 § BLBS ; On success, skip the $PUT call 
0941 1123 28: $PUT RAB = dbg$gl_outprab =: Write string to DBGSOUTPUT 
03 50 E€9 O946E 1124 BLBC RO,4$ ; Exit if we encountered an error 
D4 0951 1152 3$: CLRL RO ; Otherwise return 0 
04 0953 1126 RET : 
50 03 00 04 FO 0954 Vict 4$: INSV #4,80,43,R0 3; Change severity to FATAL 
0959 1128 SEXIT_S RO ; and take an exit. 
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6 -SBTTL DOBGSCHECK_PROT - Makes page writable 
96 FUNCTIONAL DESCRIPTION: 
96 Probes a NY byte to see whether it can be written. If it can 
96 the value dbgdk_no_reset is returned. Othery'se. the SETPRT system 
96 service is calléd fo change the protection of the pa e in which the 
96 oe is located to user read/write and we return dbgSk_reset_prt as 
96 e value of this routine. If the system service returns an error, 
096 zero is returned. 


B 15 


vtec 1 + eee 


- The address of the byte to make writeable 


1130 
1132 iF 
1 : : 
1134 ; 
1138 : 
1 5 ; 
1 5 : 
He 
96 10g : SLAP) - The address of a byte in which the system service can put 
bee 1107 : the previous protection of the page 
036 1145 ; IMPLICIT INPUTS: 
0963 1142 | < 
0962 1148 : IMPLICIT OUTPUTS: 
0965 1180 : a 
0962 1151 : ROUTINE VALUE: 
096 1136 3 dbg$k_no_reset <= Protection was steeeey writeable, no change made 
0962 1153; dbg$k_reSet_prt - Protection changed, old protection stored 
Boe W138 3 0 - Error in system service call 
0962 1156 ; SIDE EFFECTS: 
096 1157 ; NONE 
B85 138 
0000 ope BF -ENTRY DBGSCHECK_PROT,“M<> 
OD 0964 1166 PROBEW #0,#1,84(AP) : See if this byte can be written 
13 0969 116 BEQL 3; No, must change protection 
DO 09 1164 MOVL #dbg$k_no_reset,RO ; Yes, set return value 
04 er a 4 RET ; to no change, and return 
DD O96F 1167 1$ PUSHL 4(AP) ; Get address passed as argument 
DD 0972 1168 PUSHL 4(AP) : Same address for end of area 
DO 0975 1169 MOVL SP,RO Save stack address 
0978 1170 SSETPRT_S {NADR=(RO) -PROT=#prt$c_ uw,PRVPRT=@8(AP); Change protection 
€9 O98€ 1171 BLBC “RO,2$ 7 Return error if service failed 
DO 0991 1176 MOVL #dbg$k_reset_prt,RO : Service succeeded, set return value 
04 BBE 4 RET 3; And return 
D4 0995 1175 2$ CLRL RO 3; Set error return value 
04 0997 1128 RET 


5) 


PUSHL 4(AP) Get address passed as argument 


04 AC DD 099D PUSHL 4(AP) Same address for end of area 
50. 065E)=600O9A MOVL SP,RO Save stack address 
51 08 BC 9A ODA MOVZBL a8 Get protection of this page 


(AP) ,R1 
SSETPRT_S INADR=(RO) ,PROT=R1 Reset protection 
BLBS RO,1$ Return if service succeeded 
PUSHL edge pexeret 
CALLS #1 ,G*C1B$ 


OD 50 
000284(4 8F DD 0988 


If not, tell user that protection 
00000000'GF 01 #4=FB 09C1 


Resetting did not work 
And return 


IGNAL 
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| 44 1128 re -SBTTL DOBGSREDO_PROT = Sets page to read only 
998 1181 ; FUNCTIONAL DESCRIPTION: . 
144 1 ¢ 3 Sets the protection of a page to a specified protection. 
099 1184 ; CALLING SEQUENCE: 
998 1185 ; 4(AP) = Address of byte whose protection must be changed 
144 1} § 3 B(AP) = Address of byte which contains the new protection 
0998 1188 ; IMPLICIT INPUTS: 
0998 1189 ; NONE 
998 1190; 
998 1191 ; OUTPUTS: 
099 1136 3 NONE 
0998 1193; 
0998 1194 ; IMPLICIT OUTPUTS: 
0998 1195; NONE 
0998 1138 : 
0998 1197 ; ROUTINE VALUE: 
0998 1198; NONE 
0998 1199 ; 
0998 1200 ; SIDE EFFECTS: é 
344 : 4 : SIGNAL ‘DBGS_NOWPROT’’ if page cannot be write protected. 
0998 1 08 
0000 0998 1204 -ENTRY DBGSREDO_PROT,“M<> ; Null entry mask 
099A 1205 
1206 
1207 
1608 
1209 
1210 
\si} 
1 \¢ 
121 
1214 
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6 fix_up_addresses: 
MOVAB 


term_ handler, fix_1 ; TEMP 
term_reason, fix 2 : TEMP 
restore context, “His dl : ta 
term_reason, fix 3 
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; to DEBUG 


; re-entriant 
; system service. 
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eeeeeSsSl 
Abstract: 


; In VAX DEBUG watchpoints are implemented by write-protecting the page 
congeanine the watched variable. An access violation on that page signals 
hat the watched variable may be changed. The problem with this 
; implementation is that it can cause system services that write to locations 
; on the write-protected page to fail. 


; The way we have solved ay problem is to intercept system services. We hcve 
; changed the System Service vector to — into intercept code, which then 

; calls a interception DEBUG routine n the DEBUG routine, we unprotect the 

; write-protected page and set bit 15 of the saved PSW in the system service 
call frame on the stack. The system service then executes. When the system 

; service returns, the bit in the saved PSW caused a reserved operand fault 

; which DEBUG catches. DEBUG can then check for changes to the watched 

; variables and reset the page protections. 


; In DEBUG, the code itself to take to implement this scheme is not much. 

The difficulty is to put all the interactions together and make it all to 
; work proser*z. Both DEBUG and System Service Intercept code are oignty 

nM an unpredicatable way. System service can originate 

from user program, from DBG/TDBG or from SDBG, System service can call 

HEBUG has it own events (Break points, ty don Go, 
etc.) at DBG/TOBG and SDBG levels. The communication between the levels 
is important (in the past, TDBG/SDBG acts quite seperately), the orderring of 
; the instruction sequences is important. It is ithety things are working 
; fine in 2 levels’ interactions (user and DBG), one should really test 
; 3 levels interactions by hand (user, TDBG and SDBG). 


; DBGSSISHR.EXE is a priveleged shareable image at the moment which sets up 
; the system service interception. This is the communication path between 

; user program, DBG/TDBG, and SDBG. It is important to call this image 

; to find out what are the others doing at the moment and to tell the others 
; what am I doing at the moment. It is not necessary to activate the 

; interception each time this image is called. This image is intended to be 
; an unsupported system service in the future (or never will be). 

; In the meantime, this image is part of the DEBUG source. This image runs 
; in kernal mode, so any changes made to this image should be tested on 


; stand alone machine. 


SSID DDD DDD DDD TT Ee Be BS BS BE ANI III IIc 


AO OD NA NEW SO OD NAMEN OC OOD NAME WO OD NAME OOONOAUM 


naa ck Bia Bea Baca Bi Bina Bd ea Bd Bi Bina, Bina BB Pica Ba a Da Baa nats ca Bima Yonva. ncaa toca Toms Pinca tonsa mca toma fomca toma ema omc foes fmsa mca fama fomsa fwsa fea fs tows, me es he 
VOVUVOV SS V VV VVVU VV VV VV VUVVU VEU VOI VV V VVC VVVCVUVCUVCVCVCVCVCVCCVCVCCVTVCVCVCCVTUTUTCSO 
a a a a ce a ed dd od od 


COOQOQOOQOOOOOSOOOOSOOOOOOOSOOOOSOOSOOOOOOOOOOOOOOoOO: 


WDOOOOOOOOOOVOOOOOOOOOVOOOOOOOOOOSO 


; There are things still not working correctly: 


; 1. If one sets watch points in both TDBG and SDBG (interceptions are 
active), system service is originated from user: 


user dbg_ssi_routine sdbg_ssi_routine 
Sys$xxx --> sees it (set bit 15) <--> sees it Thit 15 set) o>} 


<== RET (bit 15 off, <== RET (bit 15 set) <== 
t-bit overs 


At each level, normal DEBUG interactions are going on. The problem 
here is after sdbg_ssi_routine is called, bit 15 is off (where it 
should have been set), ~SDBG went into a loop. 


=" 
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2. If one sets same watch point on a user variable from both TDBG and SDBG. 
This variable is changed by a system service originated from user. 
Because the problem I mentioned above, | have changed the picture 
a bit, so the SDBG won't go into a loop: 


user dbg_ssi_routine sdbg_ssi_routine 
sys$xxx <--> sees it (set bit 15) <=> sees it Tpass) ted 
<== RET (bit 15 off, <== RET (pass) <--V 


t-bit overs 


Now the problem is not be able to report the watched variable correctly 
in this case. (I consider this is a feature for now). 


can step into user program from SDBG level, this can confuse the 


3. One 
things. 


4. Unknown problems? 


OOooQoQooooooooooo: 
FPODCDOODODOOOOOOOOODOOOOOOOOOOOSO 
PTO ree re Tere rererere Cre rererererererar 


rT — ba, ina iad tena Da Bn na na ana Dena Ba ea na tena na ten Dna tena Dona ta na a Pena) 
OOD Y*OVVTVTVVTVCVVVVVVTCVTVC"C"C"0"0"C0"C000"€0 


Main interface to enable the intercept system service. 


<Oo 


ec ee ce ec ee ee ee ee ec ee ee ee ee eB ed ed ed ed 


0000 0 ~-ENTRY ENABLE_SSI,“M<> 
00000000'8F 01 D1 O cmpl #1,#dbg$gl_3b_system 3; VMS 4 system? (Link flag check) 
01 13 3 beql enable_ssi_3b ; Yes, next check 
04 OA ret 3; No, simply return 
OA0 enable_ssi_3b: 
00000000'"8F 01 D1 OA0 1 cmpl #1,#dbg$gl_setssi :; VMS 4 sxates Linked with 
0A1 1 ; DBGSSISHR.EXE? (Link flag check) 
01 13 = OAI 1 beql enable_start : Yes, things start to happen 
04 OAl 1 ret ; No, simply return 
Al 14 ENABLE_START: 
01 BB OA! 1 PUSHR #*M<RO> ; RO is used randomly in DBGSTART 
Al 1 ; _for purpose, save it to be safe 
O00000046"EF D4 OA1 1 CLRL DBG_ONCE _ONLY_CNT ; Since we are leaving DEBUG, clear 
0A1B 1 3; this re-entriant count 
OOOOOBC9*EF 16 pare 1 JSB TRIGGER_SSI ; Is ony watch point active? 
6C 00000000 EF 1 €0 “ BBS #0BG$V_CONTROL_SDBG,DBG$GV_CONT OL,2$; If SDBG is running 
" 3 ; DBG/TOBG is running now. : 
00000008"EF 03000300 8F DO OA29 MOVL #*°X03000300,DBG_SETUP ; Initialize the variable, from 
A354 ; left to right, user mode, not 
A34 ; active, pricrity 3, SSI disabled. 
OOOO0O000'EF D5 OA34 TSTL DBG_SSI_CNT ; Have we intercepted before? 
A3A ; _(DBG_SSI_ROUTINE called?) 
0B 13 OASA BEQL 1$ ; No 
00000015*EF  O0000016°EF 88 OA 3 BISB2 SAVE_SSI_STATE,DBGSGV_SS1_CONTROL; Yes, merge (OR) runnin 
AS ; Status from intercept code in PO, 
AS? ; we got to make sure the info. has 
AS? ; flowed through all levels during 
Ac? ; one service call, regardless the 
A47 : sageractions happen in the back. 
OOOOOOOA'EF  QOO00001S*EF 88 nee 1$: B1S82 DBG$GV_SS1I_CONTROL ,DBG_SETUP+ ; Roree nt again into state 
; vector 3r e now 
09 O0000014"EF €E8 rt BLBS DBGSGB_SET_SSI_CNT,11$ ; Any watch pointing active at this 


G 15 
GSTART 15-SEP-1984 247: AX/VMS Macro v04-00 Pa 5 
Mee 000 DBGSREDO_PROT = Sets page to read only pat at 9 33:35:58 YoeauG SRE DBGSTART.MAR;1 - (3?) 


;__ level? 

_SETUP*2; No, Tell the 3rd bit in 3rd 
> byte in state vector that priority 
$ is not active 


12$ 
B2 #O0BGSM_SSI_ROUTINE_3,DBG_SETUP+2; Yes, Tell the 3rd bit in 3rd 
; yte n state vector that priority 


. S$ active 
128: BISB2 DBG$GB_SET_SSI_CNT,DBG_SETUP Now, finally set the enable/disable 
; bit depending on whether the watch 


QOOOOOOA'EF 04 BICB2 #0BGSM_SSI1_ROUTINE_3,DB6 


7 B 
QOO0000A’ EF be 11$: 8 


00000008"EF  00000014'EF 


| 
| 
opogonog Er 


point is set or not 
; Save old state, not used here 

Must keep this ID around, retunred 
: D value from SSI_USS 

user supplied routine to be called 


PUSHAB SAV ; 
; at the time system service is 


E_STATE 

PUSHAB DBG_ROUTINE_ID 
00000C22°GF PUSHAB G“*DBG_SSI_ROUTINE 

intercepted 

Enable/Disable DEBUG routine 

; Invoke routine in privileged Library 

to setup intercept system service 
; Join the common code 


00000008" 


F PUSHL DBG_SETU 
00000000 ° GF 64 
6A 


SETUP 
CALLS #4,G6*SSI_USSU 
BRB 4$ 


; SDBG is running now. 


2s: 


_ 
dN AAAI AAAI AIAN AAAI AAA AIAN 


WOOO OO09 090909 090909 909 SII NN SNIP PAPA AAA ADA MAMI & SS SE & & & 


OOOOOOOC*EF 93000400 B&F MOVL #*X03000400,SDBG_SETUP Initialize the variable, from left 
to oi ent user mode, not active, 
priority 4, SSI disabled 


TSTL B8G_SS1_CNT ; Have intercept before? 


BEQL ; No 
BISB2 SAVE_SSI_STATE,DBGS$GV_SSI_CONTROL; Yes, merge (OR) running 
; $status from intercept code in PO 
3$: BISB2 DBG$GV_SS1_CONTROL,SDBG_SETUP+2; Merge (OR) again into state 


00000000" EF 
00000015"°EF 00000016°EF 
OOOOOODE*EF 00000015'EF 


3; vector 
09 00000014 "EF BLBS DBGSGB_SET_SSI_CNT,31$ ; An woreh pointing active at this 
: evel? 
OOOOOOOE * EF 08 eicee #0 GSM_SSI_ROUTINE_4,SDBG_SETUP+2; No 
OOOOOOOE ‘EF 8 ais: TE #0BGSM_SSI_ROUTINE_4,SDBG_SETUP+2; Yes 
OOOOOOOC*EF 00000014"EF 2$: B1S8 DBGS$GB-SET"SSI_CNT{SDBG_SETUP; Finally, enable/disable SSI 
00000008 ' PUSHAB SAVE_S ; Save old state, not used here 
00000004 ‘EF PUSHAB SODBG_ROUTINE_ID ; Must keep this ID around, retunred 
: 10 value from SSI_USS 
00000€ 22*GF PUSHAB G*DBG_SSI_ROUTINE ; user supplied routine to be called 
z at the time system service is 
3 tasorcestes 
0000se tee he PUSHL SDBG SETUP 3; Enable/Disable SDBG routine 
*GF 4 CALLS #4,G"SSI_USSU ; Invoke routine in privileged library 
4s: 3; to setup intercept system service 
09 50 BLBS _—RO, 58 ; Test to see if SSI_USS failed 
SEXIT_S RO : Yes, out!!! 
5$: 
01 POPR #*M<RO> ; Pop RO, RET 
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DBGSTART 
v04-000 
00000000°8F 01 
01 
00000000°8F 01 
01 
03 
00000004 ‘EF 
000008(9" : 
37 00000000" EF 
00000008"EF 03000300 8F 
00000008"EF 00000014'EF 
00000008 ' EF 
00000000°EF 
00000C 22° GF 
00000008 "EF 
00000000°GF 04 
35 
OOOOOOOC*EF 03000400 8F 
OOOOOOOC*EF  00000014'EF 
00000008‘ EF 
00000004 "EF 
00000C 22° GF 
posvonoc 'ef 
00000000 ' GF 4 
09 50 
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SSSSE 
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PROT = Sets page to read only 
139 
1597 ; Main inter 
8 3 NOTE: Be BU 
1399 ; only if there 
ENTRY 
cmpl 
beql 
ret 
disable_ssi_3b: 
cmpT 
beql 
ret 
DISABLE _START: 
PUSHR 
INCL 
JSB 
BBS 


PUSHAB 


PUSHAB 
PUSHAB 


PUSHL 
CALLS 


BRB 
MOVL 


BISB2 

PUSHAB 
PUSHAB 
PUSHAB 


PUSHL 
CALLS 


PUPS BBB EEE EB FWA HII INI AIP DIPININPININPONINIDY 9 OOO | SM QOOOOOOOOO ONO 


ee a ee a ee ee a ee ee a ee ee a ee ee ee ee a a a dd 
RO ODN NEW 2 OOO NOA UE WIN 9 OD NA UNE WIN @ O ODNAU EW CO OONOU EWN 


TT ee eee ee eS ee ee eS Se ee eS ee Te ee ee eee ee ee ee ee ee ee 


BLBS 


H 15 


G interception routine is aL 


S @ watch point set. 


“M<> 


yes $$l 
. system 


dbg$gl 
aigencs Sst 
#1 ,#dbg$gl_setssi 
disable_start 


#°m<RO 
DBG <Ouee ONLY CNT 
TRIGG 


2 s 
#DBGSV_CONTROL_SDBG, pacsév Ie oarkotes 


; DBG or TOBG is runn 
MOVL 


#°¥03008300,08_ SETUP 


SAVE _STATE 


DBG_ROUTINE 
G*DBG_SS!I NROUTINE 


DBG_S 
#4, gtsst USSU 


48 


; S$DBG is runnin 
2$: 9 


#°xX03000400, SDBG_SETUP 


n“ 
> 
< 


SDBG_ROUTINE_1D 
G*DBG_SS1_ROUTINE 


SDBG_SETUP 
#4,G"SSI_USSU 


RO,5$ 


RrSEp=198e 93:39:28 


rface to disable the gg ge 
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t system service. 


ways not active. 


SSI is enabled 


VMS 4 system? (Link flag check) 
Yes, next check 
No, sea return 


systes Linked with 

VDaGSs! HR.EXE? (Link flag check) 
Yes, things start to happen 

No, simply return 


3 ne track of re-entriant times 


BISB2 OBGS$GB_SET_SSI_CNT,DBG_ sttup; “Enabler Disable 


DBG$GB_SET_SSI_CNT,SDBG_ ier? 
E_STATE™ § 


wenee point active? 
; If Sd8G ‘= running 


Initialize we variable, from 
ede Lg ri ght us¢r mode, not 
pr ority SSI disabled 
$$1 depending on 
whether watch point is set or not 
; Save the old state, must remember 
the state when DEBUG is first time 
entered 
; Must keep this ID around, retunred 
user supplied routine to be called 
at the time system service is 
intercepted 


; ID nos eg ats, Sst USS 


(= the § 
Invoke ate — privileged Library 
to setup intercept system service 


anieter Spe the variable, from left 
o,rign t, user mode, not active, 
ty 4 $s} disabled 

sree e $s] if watch point set 
ave the old state, must 

; Must coo this ID around, retunred 
ID value from SS1_USS 

user supplied Bn Bo. to be called 
at the time system service is 
intercepted 

; Set the SSI_USS 

Invoke routine in privileged Library 

to setup intercept system service 


; Test to see if SSI_USS failed 


pes esa 3 Shoes Line Soon are ae aS | 


| 
GSTART 15-SEP-1984 7:47:35 VAX/VMS Macro v04-00 Pa 7 | 
V -000 DBGSREDO_PROT = Sets page to read only ramet Ti 33:65:38 DEBUG. SRC JDBGSTART.MAR;1 - (3) } 
: 16 ; - SEXIT_S RO ; Yes, out!!! | 
01 00000004'EF if BBE 14 See’ cup, GLONCE_ONLY_CNT,#1 —; first time enter DEBUG 
00000015"EF  O0000008'EF 9 88 1 a MOVB = SAVE_STATE,DBGSGV_SSI_CONTROL; Yes, remember its original state 
03 Ba gece 1289 POPR = #*M<RO,R1> 
“ee ieee 
acy 1706 3; This routine is used to determine whether a watch point is set or not. 
aC 1464 fRIGGER_SSI:: 
QOO00014"°EF 94 OBC9 1465 CLRB DBG$GB_SET_SSI_CNT ; Assume there is no watch point active 
00000000"EF be ace 1406 Pett RYENTSPAGE _QUEDE : A Vas of watched pages is there? 
ecard 000'EF 44 BD? 1008 MOVL EVENTSPAGE_QUEUE ,PAGE_ENTRY; Loop through the List 
0 00009 OO°EF E +1 1469 1$§: MOVAB EVENTSPAGE_QUEUE,RO : 
50 000 10"ee o +3! \o0y beer PAGE _ENTRY,RO : te of List? 
: > ves 
QO0000014"EF 96 OBF 10f6 INCB DBG$GB_SET_SSI_CNT ; There is one watch point 
00000010'EF eoenetedt oY aco 1e07 post @PAGE_ENTRY,PAGE_ENTRY ; Next 
Soceeere *t? 9 94 1072 28: Gis DBGSGB_SET_SSI_CNT : oy watched page found? 
OOODDDI4 EF 01 90 COD 1477 MOVE #1 DBGSGB_SET_SSI_CNT ; Yes, flag it 
00000000 * GF 61 FB OCIA 1479 CALLS #1,G*SSI_USSK ; Call the Kernel mode routine to 
05 0C21 1480 3$: RSB : Set up the interception, if 
Oc 1481 : interception is already setup 
a¢92 188 ; call simply returns 
oc 148 


Pee eee ae ak 
J 15 

GSTART 15-SEP-1984 7:47:35 VAX/VMS Macro v04-00 Page 38 

7002000 DBGSREDO_PROT = Sets page to read only 2=SE b=} 984 33:55:38 DEBUG. SRC JDBGSTART.MAR; 1 . (28) 


; \¢ 5 ; DEBUG Interception routine. 
0000 OC 14 $ ENTRY DBG_SSI_ROUTINE,“M<> 
C 14 } DBGSPSEUDO SSI:: 
6D OOO00C61"EF DE OC24 14 MOVAL DBG_SSI_ROUTINE_HANDLER, (FP) 
C2B 14 y ; Declare its own stack handler 
C2B 149 ; = 60 rere handler can resignal 
C28 1438 ;  DBGS_NORMAL, so stack handler 
C2eB 149 ;  =has @ chance to catch this signal 
C2B 1494 ; _ and change it to DBG$_SS_INT 
't pee | HH 96 C2B 1495 INCL BG_SSI_CNT 3 Mark the fact we see one 
OOOOO016"EF 18 AC C31 1238 MOVB 4(KP) ,SAVE_SSI_STATE ; Get the communication variable 
C39 133 3 at the time this routine is called 
14 AC ODD OC39 14 : PUSHL 20(AP) ; Pass in Address of the system service 
C3C «(149 3 count (this system service may be 
be C 1500 3: _ nested) 
10 AC DD OC3C 1501 PUSHL 16(AP) ; Pass in Address of the system service 
bc F 1306 ; RET count (this system service may 
C3F 138 : return from SDBG, then TDBG) 
OC AC OD OCSF 1504 PUSHL 12(AP) ; FP of the system service 
08 AC ODD oceg 1505 PUSHL 8(AP) 3; AP of the system service 
04 AC DD O0C4 1306 PUSHL 4(AP) ; System service index 
05 odd O0C48 150 PUSHL #5 ; # of arguments 
00028001 8F DD OC4A 1508 PUSHL #DBG$_NORMAL 3; A way to get back into DEBUG 
00000000'GF 07 FB B030 1509 CALLS #7,G*CIBSSIGNAL 3; Signal it. 
01 00 OC57 1510 MOVL 1,R0 3; Interception done, return 
O0000016"EF 94 OCSA 1511 CLRB SAVE _SSI_STATE ; No use for the communication variable 
0C60 1319 : clear it, make sure there is no 
0Cc60 151 ; side facts after using it 
04 OC60 1514 RET 
0C61 1515 
Beet 1316 3; DEBUG Interception routine handler 
0000 0C61 1518 eENTRY DBG_SSI_ROUTINE HANDLER, “M<> 
F589 30 OC63 1519 BSBW SAVE _USER_CONTERT ALWAYS; Save user context 
3¢ 04 AC DO 0C66 1330 MOVL. CHFSC_SIGARGLST(AP) ,R2 ; Change DBG$_NORMAL to 
04 A2 00028793 8F 00 BCGA 1521 MOVL #0BG$_SS_INT,4(R2) ; DBG$_SSI_INT 
F930 31 pcre 1356 BRw PRIM_& ; Act as though its a normal exception 
0c75 1524 e END beginhere 


DBGSTART 

Symbol table 
$$. TMP1 

Be, 1nP 2 

Ser ie 

BUF 

CHES _MCHARGLST 
CHF SL_MCH_FRAM 
CHFSL_MCH’SAVR 
CHFSL-SIGARGLST 
CHF $L_SIG_ARGS 
CHFSL_S1IG_ NAME 
CLISA_IMGFILED 
CLISA_IMGHDADR 
CLISV_DBGEXCP 
CONST_O 

CONST~1 

DATA 

DBGSB_BPT 1 
DBG$B- PREV_PROI 


DBGSC 
DBCSERDLO f_CIN 
DBCSEXCEPTION Is _FAULT 
DBGSEXC_HANDLER 
SO CSE INRL HANDL 
DBGSFLUS UF 

pases - CALL_NORMAL_RET 


DBG 
DBGSeB_ SET" SSI ™* 


HANDL Eb 
ete STEM” 
DBGSGL “EXTT STATUS 
DBGSEL. INPRAB 

DBG$GL_LOGRAB 
DBGSGL_OUTPRAB 
DBGSGL~ ~READERR CNT 
DBGS$GL_RUNFR 
DBGSGL_ SCREEN -ERROR 


DBG$L—USER-PC 


SQOQoQooooooQoooooooooo°oo 


Reeeneee 
Seeeeene 
Reaeeeeet 
00000658 
rereenree 
eeereraeke 
geeaeraene 
00000014 
Seerereee 
geereaere 
00000360 
eeaeeaene 
geeenrere 
geeaaene 
Raeeaeeere 
00000000 
geereene 
greaerenee 
gererene 
geeeeaenre 
00000015 
gereraeee 
geeerere 


OLN O 


Oooooooooo 
= 
Ooaof—omMmnu > 


RG 


z@ DDD 
eo 


@ 
a 


D &] 
i) i) 
- > fe + + > we + + + we + wee + > wee > s 


z 
a 


ro 
(7) 


08 


SOOoOoooooooooooooooooooo 
SOPSCOCDBOWDOOOSOCOASOCOBOWO 


ia 


eeees 
-o 


COONOUS WI OM 


D 
DBGS 


° 

a 

a 

PAAM J 
feet I 
ccccccccccccccc 


DBGSN E 
DBGSOUT _MESSAGE 
DBGSOUT"NUM_VAL 
DBGSPRINT 
DBGSPSEUDO_EXIT 


DBGSPSEUDO_PROG 
DBGS$PSEUDO_SSI 
SPUTMSG” 


DBGSPU 
DBGSREDO_ PROT 
DBGSREL_MEMORY 


DBGSRST_ INIT 
DBGSRUNFRAME 
DBGSSCR_SCREEN_TERM 
DBGSSCR- WRITE ERROR 
DBGSTERA _HANDCR 
DBGSTHREAD_BPT 
DBGSTHREAD- RET 
DBGaV ATE ERIT 


dB FAULT 
DBG$V_CORNTROL_ALLOCATE 
DBG$V— CONTROL — DONE 


rou 


o~ 


SOOOoCoooooooooooooooooooo 


DOQOoOoOooooooooooooooooooQoooooooooooo 

SOOSOSCSCOCSOSOOSOSCOOOOSOOOCOSOOSOOSOOOOSOOSOOOSOOSOSOS aw 
SDOOOS—-SCSSCOOOCCOOOSOSOOSOOOSOSOSOSOOSOOSOOSSSOoSeS ™ 
DOODWOO S90 LVOBOOCOCOCOCOCGOOCOOOOOOSoOooooo a 


00 
00 
20 
00 
01 
02 
04 


00000008 


geenreree 
Seerenree 


464 ok 
00000C24 


gerarene 
00000998 
geeareree 
geeeeeere 
gereeaere 
geareene 
000002F 9 


0000 


: 


00000 
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OOOOCoCoOoooooooooooo 
DBOMOMDDOOCOCOCMBOMBMMDOOCMWO 


V 
DBG$V_ CONTROL — 


DBG$ 


DBGS 
DBGS 


DBG 


T 


DBGSTAR 
Symbol table 


vv 
Vv 


DBG$_BBGERR 

DBGS_EXITSTATUS 

DBG$_INPREADERR 

DBG$_LASTCHANCE 
MAL 


$_NOWPROT 


“READERR 


LE_SSI 


SS_INT 
SUPERDEBUG 
FACILITY 


ROUTINE 
$S1 ROUTINE HANDLER 
DISABLE ~ 
DISABLE-SS1_38 
DISABLE “START 


AAO COC0 Co Coco Co C9 CON’ HS F& COCO L109 CO COCO GOA OH UI 


SOOOOCOOCOCOOCOSOOOOOOOOOOOOOoOoOoOoOoO 


4 

UP _ADDRESSES 
LER 

W 


CHAN 
FILNAMOFF 
HANCE 


PARAM” 1 
PRIMARY_HANDLER 
PRIM_3 

PRIM_ 
PRIM_HANDL_2 
PRTSC_UW 
PSEUDO_HANDLER 
PSEUDO SIGNAL 


ROUTINE _VALUE 
AVED_AP 


SAVED-R1 
SAVE_SSI_STATE 
SAVE_ STATE 
SAVE_USER_CONTEXT 
SAVE_USER-CONTEXT_ALWAYS 
SDBG_ROUTINE_ID 

86 SETUP 
UP_EXIT_HANDLER 
L SAVE KP 
b-SAVE PC 
“APPERDEDB 
S“READERR 
EAK 


C 
N 
NAL 
D 
a 


ANNMMNNNNNNnvnunnnununn 
ANNMNMMNNYVTIT WM AMMOS 


T 
$ 
$ 
$ 
R 
R 
% 
$ 
$ 
$ 
$ 
$ 
$ 
l 
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37 R $ 
C9 R 
006 e 6 
aoe R 68 
ran 0 
8A1 R 08 
155 R 06 
O53 R 06 
aig te 
an 
329 a 06 
537 RG 08 
ah¢ g 08 
5A5 R 08 
539 RG 08 
ran x 00 
47E R 08 
862 R 08 
007 
005 
028 
004 
000 
000 
022 
1A9 R 08 
g8) R 08 
D8 R 08 
$08 R 07 
038 R 06 
O3F R 06 
043 R 06 
047 R 06 
16 RG 06 
08 RG 05 
7R 08 
1F R 08 
04 RG 05 
00C RG 06 
OEF R 08 
107 R 08 
Oe 
10 
00 
BO 
380 
801 
46 
4! 
01 
eee Gx 00 
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DBGSTART 
Symbol table 


TERM_BLOCK_ONE 
i ae ~BLOCK_ TWO 


ON 
TERM” wiNDoY HANDLER 
TRIGGER 
USER sie 
USER” PC 
VIRTOAL ZERO 
WINDOW RANDLER 
WRITABCE_STOR 


PSECT name 


SABS 
DBGSABS _ZERO 
GSGLOBAL 


DBG 
2278127222 
DBGSSSI 
OBGSOWN 
DBGSPLIT 
DBGSCODE 


Phase 
Initialization | 
Command processing 


eeneereey GX o 


SR ne 
: 


aeekeene GX 
eeeeenrakr 6X 
aeeeeeee 6X 
kenenreee GX 
kereenee GX 
rekereee x 
ekenkeee GX 
eeeeeenee 6X 
weeeenee GX 
eeereeee GX 
reerenee 


00000018 


G 


SQOOCooooooooooooooooooo 
WDNMAODOAOAAAOMDOWDOMOOOCCE 


CooQooooooooo 
Sooooooooooo 
Sooooooooooo 
SoOoooooooooSo 
Solon nM 
SOOO UO VV 


Page faults 
16 
96 


— 
-—o 
er ee ee ee ee ee ee er ee 


Ww 

— cum 
co—co— 
OO—WwO FN 
e*eee#ee##see#@*# 


Gwoececccceccececccesosce 


CPU Time 


00:00:00:82 


PSECT No. Attributes 


0 ¢ Q.) NOP 
1 ¢ 1.) NOP 
02 ¢ ¢°} P 
05 ¢ 3.) P 
4¢ 4.) P 
9¢ 3.) P 
$ ( §-} P 
( 7.) P 
8¢ 8.) P 


80:00:03:91 
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AAOOOOQOO 
ooooooooo 
222222222 


NOSHR 
HR EXE 


a, 5, a 2 J, a, 2 
PQAQMMAMAAOAO 
Perrrerrerr 
2 
o 
n AAW 
= 
z 
z 
o 
m 
>< 
m 


NOSHR NOEXE NORD 
EXE RD 
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DBGSTART | 15~$E-1984 33:4 
VAX=-11 Macro Run Statistics 4-SEP=-1984 75 


38 


Pass 1 499 : g:i7. § 0:00:57.95 
Symbol table sort | :00:02. 8: 07-9 
Pass 2 44 :00:04.56 :00:14.30 
Symbol table output 31 0:00: 8-53 : d: 1.40 
Srose Stales sete 5S BR 
-refere outpu :00:00. :00:00. 
Assembler run totals 110 8: 0: 3-28 Boro: 6:39 


The working set Limit was 1950 pages. 

95992 bytes (188 pages) of virtual memory were used to buffer the intermediate seer. 

There were 90 pages of symbol table space allocated to hold 1516 non-local and 63 local symbols. 
1524 source Lines were read in Pass 1, produc ing 65 object records in Pass 2. 

32 pages of virtual memory were used to define 30 macros. 


fw re oenramne nme mse meee aamoaen } 


! Macro library statistics ! 


Feowooeoeeooeceoeeeoceeeooocos$ 


Macro library name Macros defined 
.5255$DUA28 : (DEBUG.OBJ JDBGMSG.MLB; 1 
“$255$DUA28:(SYS.OBJJLIB.MLB; 1 

$255$DUA28: CSYSLIBISTARLET.MLB;2 2 
TOTALS (all Libraries) 2 


1626 GETS were required to define 27 macros. 


1 
1 
5 
7 


There were no errors, warnings or information messages. 
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MACRO/LIS=LIS$:DBGSTART/OBJ=0BJ$:DBGSTART MSRC$:DBGSTART/UPDATE=(ENH$:DBGSTART) +EXECML$/L1IB+L1B$:DBGMSG/LIB 


rm 


NT CORPORATION 


AH-BT13A-SE E 
ND PROPRIETARY 


DI 
VAX/VMS V4.0 CO 
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